add codebook(incomplete) & R script