added initial R script. Package to be created