Committing R script and modified readme file