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)
cliquePairedTest(all, classes, graph, nperm=100, permute=FALSE)$alpha
}
Run the code above in your browser using DataLab