For the second assignment in the R programming class