Update R codes