R code for HW exact test

I show above a simple R code to perform Fisher's exact test using "pegas" package.
Enjoy!!!

require(adegenet) #load genepop/genetix/fstat datasets into R
require(pegas) #summary loci statistics as HE and HO and Fisher exact test for genotype/alles proportions




mydataset.genind<-read.genepop("MyData.gen",quiet=TRUE) #adegenet function
mydataset.genind
validObject( mydataset.genind ) #if TRUE == "is a genind object"


summary( mydataset.genind ) #alleles frequencies and HE/HO per locus


mydataset.loci<- as.loci( mydataset.genind ) #to converto to "pegas" object as.loci
mydataset.loci


HWtest<-function(x){hw.test(x, B=10000)} #I defined a R function that contains pegas' hw.test to change the number of Monte Carlo replications


HWtest( mydataset.loci ) #I used that "new function" to obtaint the test