Update Aggregate_Correlation.R