if (require(graphite)) {
kegg <- pathways("hsapiens", "kegg")
graph <- pathwayGraph(convertIdentifiers(kegg$'Chronic myeloid leukemia', "entrez"))
head(edges(graph))
## We are going to remove the edge 1026-1019
head(edges(deleteEdge(graph, "1026", "1019")))
}
Run the code above in your browser using DataLab