my R code