## Not run: if (require(graphite)) {
# if (requireNamespace("RCytoscape")){
# kegg <- pathways("hsapiens", "kegg")
# graph <- pathwayGraph(convertIdentifiers(kegg$'Chronic myeloid leukemia', "entrez"))
# }
# path <-
# c(3,17,5,9,13.04,2.60,0.209,0.321,"6,7,8,9,10","3,5,6,7,8,9,10,14,17",
# "1029;4193;7157","1019;1021;1026;1029;595")
# plotInCytoscape(graph,path)
# }
# ## End(Not run)
Run the code above in your browser using DataLab