speed enhancement w/ colMeans() instead of apply() function