Update R-code