https://github.com/cran/HardyWeinberg
Raw File
Tip revision: f2a3a3d0ac5a1b31a7cb8d6ca14d220c5d4f8d14 authored by Jan Graffelman on 29 March 2016, 20:04:32 UTC
version 1.5.6
Tip revision: f2a3a3d
gmeanrow.R
gmeanrow <- function(x) {
  # computes the geometric mean for a vector
  y <- exp(mean(log(x)))
  return(y)
}
back to top