Likelihood ratio test for Hardy Weinberg equilibrium
HWLratio
performs the Likelihood ratio test for Hardy Weinberg
equilibrium, both for autosomal and X-chromosomal markers.
HWLratio(X, verbose = TRUE, x.linked = FALSE)
X |
|
verbose |
|
x.linked |
|
HWLratio
returns a list with the components:
Lambda |
the likelihood ratio |
G2 |
-2*log(Lambda) |
pval |
the p-value |
Jan Graffelman jan.graffelman@upc.edu
Weir, B.S. (1996) Genetic data analysis II. Sinauer Associates, Massachusetts. See Chapter 3.
x <- c(298,489,213) names(x) <- c("MM","MN","NN") HW.test <- HWLratio(x,verbose=TRUE) # # Test for an X-chromsomal SNP. # rs5968922 <- c(A=392, B=212, AA=275, AB=296, BB=80) HW.test <- HWLratio(rs5968922,x.linked=TRUE,verbose=TRUE)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.