R-Projects 1st Assignment