exchange colMeans by sapply