my first R program