Add more R code