powered by
Hmean(x, na.rm = FALSE)
sapply
Gmean
x <- runif(5) Hmean(x) m <- matrix(runif(50), nrow = 10) apply(m, 2, Hmean) sapply(as.data.frame(m), Hmean)
Run the code above in your browser using DataLab