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