update R program