add R script