added codebook and R script