Added R code to last slide