HardyWeinberg (version 1.6.1)

HWD: Compute disequilibrium statistic D

Description

Function HWD computes Weir's disequilibrium coefficient D.

Usage

HWD(X)

Arguments

X

a vector of genotype counts (AA, AB, BB)

Value

Returns the disequilibrium coefficient

References

Weir, B.S. (1996) Genetic data analysis II. Sinauer Associates, Massachusetts. See Chapter3.

See Also

HWf HWChisq

Examples

# NOT RUN {
x <- c(MM=298,MN=489,NN=213)
D <- HWD(x)
cat("Disequilibrium coefficient: ",D,"\n")
# }