sfile <- system.file("extdata/hsa04010.xml",package="KEGGgraph")
pathway <- parseKGML(sfile)
nodes <- nodes(pathway)
node <- nodes[[7]]
getEntryID(node)
edges <- edges(pathway)
edge <- edges[[7]]
getEntryID(edge)
getEntryID(nodes[1:4])
getEntryID(edges[1:4])
Run the code above in your browser using DataLab