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.