R code to start