R code examples