update with R code