powered by
hwe.hardy(a,alleles=3,seed=3000,sample=c(1000,1000,5000))
hwe
# example 2 from hwe.doc: a<-c( 3, 4, 2, 2, 2, 2, 3, 3, 2, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0) ex2<-hwe.hardy(a,alleles=8)
Run the code above in your browser using DataLab