comments added in R code