First version of R script, Readme and CodeBook