data(ex_kgml_sig) # Ras and chemokine signaling pathways in human
genesetnets <- getGeneSetNetworks(ex_kgml_sig, use.attr="pathway")
# Integration with graphite package
## Not run:
# if(require(graphite) & require(clipper) & require(ALL)){
# genesetnets <- getGeneSetNetworks(ex_kgml_sig,
# use.attr="pathway", format="pathway-class")
# path <- convertIdentifiers(genesetnets$`Chemokine signaling pathway`,
# "entrez")
# genes <- nodes(path)
# data(ALL)
# all <- as.matrix(exprs(ALL[1:length(genes),1:20]))
# classes <- c(rep(1,10), rep(2,10))
# rownames(all) <- genes
#
# runClipper(path, all, classes, "mean", pathThr=0.1)
# }
# ## End(Not run)
Run the code above in your browser using DataLab