This is the second project for the R programming class