Create PML Script.R

Adding the R script file