# NOT RUN {
data(moodyContactSim)
v10path<-tPath(moodyContactSim,v=10,start=0)
# plot just the path from v10
plot(v10path)
# plot the path from v10 on top of the network
plotPaths(moodyContactSim,v10path)
# plot the paths from both v10 and v1
v1path<-tPath(moodyContactSim,v=1,start=0)
plotPaths(moodyContactSim,list(v10path,v1path))
# if ndtv package is installed, along with Graphviz system library,
# nice hierarchical trees can be drawn
# }
# NOT RUN {
plot(v10path,
coord=network.layout.animate.Graphviz(
as.network(v10path),
layout.par = list(gv.engine='dot')
),
jitter=FALSE
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab