Added R code to repo