I am trying to group by and sum. My code is:
supply_agg = vector(length = 64, mode = \'list\') for (i in 1:64) { supply_agg[[i]] <- PST[rownames(pct_krit