Add R script
Add README and Code Book