update R code