clean up
aggr in r works
integrate util.R, aggr still works