Add example R script