R/alowcurve.R

Defines functions `alowcurve`

`alowcurve` <- function(p,q,chiquant,n,cc=0.5) {
  y <- (p*q-cc*(1-p*q)/n)^2 - (cc^2*p*q*(p*q-0.5)/n^2 + p^2*q^2*chiquant/n)
  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.