Added an R script sample.
Update samples