Added some comments to the R script for verbose