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