removed comment from R code