rdp <- RedPort('MyPort')
## Not run:
#
# calld(rdp)
#
# ###
#
# g1 <- graph.lattice(c(3,3,3))
# addGraph( rdp, g1, layout.kamada.kawai(g1) )
# V(g1)$nodeColor<-heat.colors(vcount(g1))
# addSeries( rdp, g1)
# ## End(Not run)
Run the code above in your browser using DataLab