sfile <- system.file("extdata/hsa04010.xml",package="KEGGgraph")
kegg.pathway <- parseKGML(sfile)
kegg.pathway.split <- splitKEGGgroup(kegg.pathway)
## compare the different number of edges
length(edges(kegg.pathway))
length(edges(kegg.pathway.split))
Run the code above in your browser using DataLab