Uploading R script, codebook and readme