Add some R code