Add some comments to R code