add first R code