Update R function