more R code