# NOT RUN {
data(antsMersch)
## better to use nstart>>1 starting points
## but estimation can be long;
## better to use nb.cores>1 cores
list.dynsbm <- select.dynsbm(antsMersch,
Qmin=1, Qmax=6, edge.type="discrete", K=3,
nstart=20, nb.cores=4)
## selection of Q=3 with the 'elbow' method
dynsbm <- list.dynsbm[[3]]
## plotting intra/inter connectivity patterns
connectivity.plot(dynsbm, antsMersch)
## plotting switches between groups
alluvial.plot(dynsbm, timestep.abbrev="D", only.present=F)
# }
Run the code above in your browser using DataLab