updata R code