sum; correct tapply