added R code to repo