powered by
Function ThetatoF converts disequilibrium measure theta to an inbreeding coefficient.
ThetatoF
ThetatoF(p, theta = 4)
the allele frequency
the disequilibrium parameter
a real number
Rohlfs, R.V. and Weir, B.S. (2008) Distributions of Hardy-Weinberg Equilibrium Test Statistics, Genetics, 180(3) pp. 1609-1616.
HWf
# NOT RUN { f <- ThetatoF(0.5,4) # }
Run the code above in your browser using DataLab