update R function