data(SNPs)
ans<-setupSNP(SNPs,6:40,sep="")
res<-tableHWE(ans)
print(res)
#change the significance level showed in the flag column
print(res,sig=0.001)
#stratified analysis
res<-tableHWE(ans,ans$sex)
print(res)
Run the code above in your browser using DataLab