add R script.