# NOT RUN {
data(SNPs)
datSNP<-setupSNP(SNPs,6:40,sep="")
res<-WGassociation(casco,datSNP,model=c("do","re","log-add"))
# observed vs expected p values for recessive model
qqpval(recessive(res))
# }
Run the code above in your browser using DataLab