Rename aggregate function to aggregate.R