Sample R code