R code of the R Presentation