First R program