R/gmeanrow.R

Defines functions gmeanrow

gmeanrow <- function(x) {
  # computes the geometric mean for a vector
  y <- exp(mean(log(x)))
  return(y)
}

Try the HardyWeinberg package in your browser

Any scripts or data that you put into this service are public.

HardyWeinberg documentation built on May 7, 2022, 5:05 p.m.