added comments to r script