completed R code for assignment 2