Update aggregating_data.R