The model used to generate the sim was:
require(ergm)
data("florentine")
theta.diss <- log(9)
# fit the model
stergm.fit.1 <- stergm(flobusiness,
formation= ~edges+gwesp(0,fixed=T),
dissolution = ~offset(edges),
targets="formation",
offset.coef.diss = theta.diss,
estimate = "EGMME" )
# simulate from the model
stergm.sim.1 <- simulate(stergm.fit.1,
nsim=1, time.slices = 100)
However, the ergm-related output that would normally be attached to the network (toggles, etc) has been removed.