# NOT RUN {
example.data <- c("D/D","D/I","D/D","I/I","D/D",
"D/D","D/D","D/D","I/I","")
g1 <- genotype(example.data)
g1
HWE.exact(g1)
# compare with
HWE.chisq(g1)
# }
# NOT RUN {
g2 <- genotype(sample( c("A","C"), 100, p=c(100,10), rep=TRUE),
sample( c("A","C"), 100, p=c(100,10), rep=TRUE) )
HWE.exact(g2)
# }
Run the code above in your browser using DataLab