sample R program