R script and code book added.