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