first R code