add codebook(incomplete) & R-script