Programming Assignment2 in R 1st commit