# NOT RUN {
if (require(graphite)) {
data(exp)
data(survAnnot)
data(graph)
row.names(exp) <- paste0("ENTREZID:", row.names(exp))
genes <- intersect(graph::nodes(graph), row.names(exp))
graph <- graph::subGraph(genes, graph)
expr <- exp[genes, , drop=FALSE]
cliqueTest <- cliqueSurvivalTest(expr, survAnnot, graph, maxPCs=2)
getTopLoadGenes(cliqueTest)
}
# }
Run the code above in your browser using DataLab