Adding sample R code