permTest(x, method="minimum", K)
scanWGassociation
data(SNPs)
datSNP<-setupSNP(SNPs,6:40,sep="")
ans<-scanWGassociation(casco~1,data=datSNP,model="co",nperm=1000)
# pPerm<-permTest(ans)
# print(pPerm)
# plot(pPerm)
Run the code above in your browser using DataLab