The used R code