# \donttest{
library(igraph)
# KEGG pathways
names(kegg.pathways)
i<-which(names(kegg.pathways)=="Type II diabetes mellitus");i
ig<- kegg.pathways[[i]]
summary(ig)
V(ig)$name
E(ig)$weight
gplot(ig, l="fdp", psize=50, main=names(kegg.pathways[i]))
# }
Run the code above in your browser using DataLab