Added R code for the presentations.