R scripts and Codebook.md added