added comments to the R script