rdp <- RedPort('MyPort')
edges<-c("n1","n2","n1","n3","n1","n4","n1","n5","n1","n6","n1","n7")
## Not run:
#
# calld(rdp)
# addEdges(rdp, edges)
# selectGraph(rdp)
# updateGraph(rdp)
# ## End(Not run)
Run the code above in your browser using DataLab