data("ex_sbml")
rgraph <- makeReactionNetwork(ex_sbml, simplify=TRUE)
v.layout <- layoutVertexByAttr(rgraph, "compartment")
v.color <- colorVertexByAttr(rgraph, "compartment")
## Not run:
# cw<-plotCytoscape(rgraph, title="example", layout = v.layout,
# vertex.size = 5, vertex.color = v.color)
# ## End(Not run)
# Export network plot to GML file
plotCytoscapeGML(rgraph, file="example.gml", layout=v.layout,
vertex.color=v.color, vertex.size=10)
Run the code above in your browser using DataLab