adding colMeans to replace sapply with mean
researching apply