Create R code