updated comments to R script