Added R code and data