rdp <- RedPort('MyPort')
el<-matrix(c("n1","n2","n1","n3","n1","n4","n2","n5","n2","n6","n2","n7"), ncol=2, byrow=TRUE)
#g <- graph.edgelist(el)
## Not run:
#
# calld(rdp)
# addGraph( rdp, g, layout.kamada.kawai(g) )
# nestNodes( rdp, c("n1","n2") )
# mergeOutEdges(rdp)
# updateGraph(rdp)
# ## End(Not run)
Run the code above in your browser using DataLab