data(testdata)
results <- single.snp.tests(cc, stratum=region, data=subject.data,
snp.data=Autosomes, snp.subset=1:10)
summary(results)
# QQ plot - see \code{\link{qq.chisq}}
qq.chisq(results$chi2.1df)
qq.chisq(results$chi2.2df)
Run the code above in your browser using DataLab