codebook and R Script