Adding R script