clipperAllRoots(expr, classes, graph, method=c("variance","mean",
"both", "paired"), nperm=100, alphaV=0.05, b=100, trZero=0.001, signThr=0.05,
maxGap=1, permute=TRUE, alwaysShrink=FALSE)
graphNEL
object.Massa MS, Chiogna M, Romualdi C. Gene set analysis exploiting the topology of a pathway. BMC System Biol. 2010 Sep 1;4:121.
cliqueVarianceTest
, cliqueMeanTest
,
getJunctionTreePaths
if (require(graphite) & require(ALL)){
kegg <- pathways("hsapiens", "kegg")
graph <- pathwayGraph(convertIdentifiers(kegg$'Chronic myeloid leukemia', "entrez"))
genes <- nodes(graph)
data(ALL)
all <- ALL[1:length(genes),1:20]
classes <- c(rep(1,10), rep(2,10))
featureNames(all@assayData)<- genes
graph <- subGraph(genes, graph)
clipped <- clipperAllRoots(all, classes, graph, "var", trZero=0.01, permute=FALSE)
clipped[,1:5]
}
Run the code above in your browser using DataLab