Created the R script, the codebook and updated the readme.