moodyContactSim {tsna} | R Documentation |
Jim Moody's example dynamic contact simulation network
Description
A networkDynamic
object containing the output of a simulation of 1000 timestep simulation of a sex contact network with 16 vertices and 18 edges. Each edge has a single activity spell.
Usage
data(moodyContactSim)
Format
A networkDynamic
object.
Details
The object has a net.obs.period
attribute describing the observation model. This is a useful network for testing path-based algorithms because it is small enough to visually inspect.
Source
Figure 5 of James Moody (2008) "Static Representations of Dynamic Networks" Duke Population Research Institute On-line Working Paper Series. http://www.soc.duke.edu/~jmoody77/StatDyn_5.pdf
Examples
data(moodyContactSim)
# plot a view of network with edge and vertex labels
plot(moodyContactSim,
displaylabels=TRUE,
label.cex=0.8,
label.pos=5,
vertex.col='white',
vertex.cex=2,
edge.label=sapply(get.edge.activity(moodyContactSim),function(e){
paste('(',e[,1],'-',e[,2],')',sep='')
}),
edge.label.col='blue',
edge.label.cex=0.8
)
## Not run:
# data object was created with
moodyContactSim<-network.initialize(16,directed=FALSE)
tel<-matrix(c(674,701,1,9,
214,247,1,11,
621,651,1,12,
583,615,1,16,
749,793,11,8,
719,745,8,13,
712,739,13,5,
634,660,13,3,
769,795,13,7,
453,479,13,4,
494,524,13,2,
224,256,7,10,
40,72,10,4,
665,692,4,14,
709,740,2,15,
575,599,2,16,
748,782,4,16,
701,733,16,6),
ncol=4,byrow=TRUE)
moodyContactSim<-networkDynamic(moodyContactSim,edge.spells=tel)
obs<-moodyContactSim%n%'net.obs.period'
obs$mode<-'discrete'
obs$time.increment<-1
obs$time.unit<-'step'
obs$observations<-list(c(0,1000))
moodyContactSim%n%'net.obs.period'<-obs
## End(Not run)
[Package tsna version 0.3.5 Index]