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") ) 
# ## End(Not run)  
Run the code above in your browser using DataLab