The R code