R code and data uploaded