Added comments to describe the R code