Adding the R program