Added my R code to template for assignment 2