Added comments to data.R