Adding initial version of R script for this project