# \donttest{
library(SEMgraph)
# KEGG pathways
length(kegg.pathways)
head(names(kegg.pathways))
tail(names(kegg.pathways))
# Load Type II diabetes graph
i<-which(names(kegg.pathways) == "Type II diabetes mellitus");i
ig<- kegg.pathways[[i]]
properties(ig)
gplot(ig, l="fdp", psize=50, main=names(kegg.pathways[i]))
# }
Run the code above in your browser using DataLab