nesthc(obj, hc, ...)
RedPort
nestNodes
gtoy.rm
#g <- gtoy.rm()
#hc<-hclust(dist(get.adjacency(g)))
#plot(hc)
#rdp <- RedPort('MyPort') 
## Not run: 
# 
#   calld(rdp)
#   addGraph(rdp,g)
#   nesthc(rdp, hc)
# 
# ## End(Not run)  
Run the code above in your browser using DataLab