R code updates