commit the R code for assignment 2