powered by
Function HWD computes Weir's disequilibrium coefficient D.
HWD
HWD(X)
Returns the disequilibrium coefficient
a vector of genotype counts (AA, AB, BB)
Jan Graffelman jan.graffelman@upc.edu
Weir, B.S. (1996) Genetic data analysis II. Sinauer Associates, Massachusetts. See Chapter3.
HWf HWChisq
HWf
HWChisq
x <- c(MM=298,MN=489,NN=213) D <- HWD(x) cat("Disequilibrium coefficient: ",D,"\n")
Run the code above in your browser using DataLab