data(kegg9)
# p-values of SPUpath and aSPUpath tests.
out.a <- aSPUMpath(kegg9$nZ, corrSNP = kegg9$ldmatrix, pow=c(1:8, Inf),
pow2 = c(1,2,4,8),
snp.info=kegg9$snp.info, gene.info = kegg9$gene.info,
n.perm=10, Ps = TRUE)
out.a
Run the code above in your browser using DataLab