Create R code Example