R code and presentation