committing R code for presentation