R/FtoTheta.R

Defines functions FtoTheta

FtoTheta <-
function(p,f) {
   num <- 4*p*(1-p)*(1-f)^2
   den <- (p+f*(1-p))*((1-p)+f*p)
   theta <- num/den
   return(theta)
}

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.