added the initial R script and final report