# NOT RUN {
data(kegg9)
# p-values of SPUpath and aSPUpath tests.
# }
# NOT RUN {
out.a <- aSPUsPath2(kegg9$nP, corSNP = 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=1000, Ps = TRUE)
# }
# NOT RUN {
#out.a
# }
Run the code above in your browser using DataLab