first R program