Created to test the R code