Add a R script