Added the .R script and Updated the readme file