added comment on R code