Added R script, codebook and detailed readme