Implemented R script and completed readme