sfile <- system.file("extdata/hsa04010.xml",package="KEGGgraph")
pathway <- parseKGML(sfile)
nodes <- nodes(pathway)
subnodes <- nodes[10:15]
sapply(subnodes, getDisplayName)
## compare them with getName, one 'displayName' may correspond to many paralogues
sapply(subnodes, getName)
Run the code above in your browser using DataLab