Update R code