Uploading the R code and codebook