Adding the R scripts