## Not run:
# ##Note that this takes a few minutes to run:
# library(KEGG.db)
# data(ParsonsGBM08)
# data(EntrezID2Name)
#
# setIDs <- c("hsa00250", "hsa05213")
# set.seed(831984)
# ResultsSim <-
# sim.data.p.values(cma.alter = GeneAlterGBM,
# cma.cov = GeneCovGBM,
# cma.samp = GeneSampGBM,
# GeneSets = KEGGPATHID2EXTID[setIDs],
# ID2name = EntrezID2Name,
# nr.iter = 2,
# pass.null = TRUE,
# perc.samples = c(75, 95),
# spiked.set.sizes = 50,
# perm.null.method = TRUE,
# pass.null.method = TRUE)
#
# ResultsSim
#
# extract.sims.method(ResultsSim, "p.values.perm.null")
# ## End(Not run)
Run the code above in your browser using DataLab