Adding the R Script