if (FALSE) {
if (require(adegenet)) {
## load data
data(nancycats)
## test on genind object, no permutation
hw.test(nancycats, B=0)
## test on loci object
x <- as.loci(nancycats)
hw.test(x)
}}
data(jaguar)
hw.test(jaguar)
Run the code above in your browser using DataLab