Added an R script sample.