Running examples in ‘EpiModel-Ex.R’ failed
The error most likely occurred in:

> ### Name: as.data.frame.netdx
> ### Title: Extract Timed Edgelists netdx Objects
> ### Aliases: as.data.frame.netdx
> ### Keywords: extract
> 
> ### ** Examples
> 
> # Initialize and parameterize the network model
> nw <- network.initialize(n = 100, directed = FALSE)
> formation <- ~edges
> target.stats <- 50
> coef.diss <- dissolution_coefs(dissolution = ~offset(edges), duration = 20)
> 
> # Model estimation
> est <- netest(nw, formation, target.stats, coef.diss, verbose = FALSE)
Starting maximum pseudolikelihood estimation (MPLE):
Evaluating the predictor and response matrix.
Maximizing the pseudolikelihood.
Finished MPLE.
Stopping at the initial estimate.
> 
> # Simulate the network with netdx
> dx <- netdx(est, nsims = 3, nsteps = 10, keep.tedgelist = TRUE, verbose = FALSE)

 *** caught segfault ***
address 0x0, cause 'unknown'

Traceback:
 1: stergm_MCMC_slave(Clist.form, Clist.diss, Clist.mon, proposal.form,     proposal.diss, eta.form, eta.diss, control, verbose)
 2: stergm_MCMC_sample(nw, model.form, model.diss, model.mon, proposal.form,     proposal.diss, eta.form = eta.form, eta.diss = eta.diss,     control = control, verbose = verbose)
 3: FUN(X[[i]], ...)
 4: lapply(X = X, FUN = FUN, ...)
 5: sapply(integer(n), eval.parent(substitute(function(...) expr)),     simplify = simplify)
 6: replicate(nsim, {    nw <- .set.default.net.obs.period(nw, time.start)    nw %n% "time" <- start <- .get.last.obs.time(nw, time.start)    z <- stergm_MCMC_sample(nw, model.form, model.diss, model.mon,         proposal.form, proposal.diss, eta.form = eta.form, eta.diss = eta.diss,         control = control, verbose = verbose)    stats.form <- if (control$collect.form)         mcmc(sweep(z$statsmatrix.form, 2, summary(formation),             "+"), start = time.burnin + 1, thin = time.interval)    stats.diss <- if (control$collect.diss)         mcmc(sweep(z$statsmatrix.diss, 2, summary(dissolution),             "+"), start = time.burnin + 1, thin = time.interval)    stats <- if (!is.null(model.mon))         mcmc(sweep(z$statsmatrix.mon, 2, summary(monitor), "+"),             start = time.burnin + 1, thin = time.interval)    out <- switch(output, networkDynamic = {        changes <- z$changed        changes[, 1] <- changes[, 1] - 1 + time.offset        nwd <- to.networkDynamic.lasttoggle(nw)        nwd <- networkDynamic.apply.changes(nwd, changes)        attributes(nwd) <- c(attributes(nwd), list(formation = formation,             dissolution = dissolution, stats.form = stats.form,             stats.diss = stats.diss, monitor = monitor, stats = stats,             coef.form = coef.form, coef.diss = coef.diss, constraints = constraints,             changes = changes))        nwd <- .add.net.obs.period.spell(nwd, start - 1 + time.offset,             time.slices)        nwd    }, changes = {        changes <- z$changed        changes[, 1] <- changes[, 1] - 1 + time.offset        attributes(changes) <- c(attributes(changes), list(formation = formation,             dissolution = dissolution, stats.form = stats.form,             stats.diss = stats.diss, monitor = monitor, constraints = constraints,             stats = stats, coef.form = coef.form, coef.diss = coef.diss,             start = nw %n% "time" + 0, end = nw %n% "time" +                 time.slices))        changes    }, stats = {        list(stats.form = stats.form, stats.diss = stats.diss,             stats = stats)    }, final = {        changes <- z$changed        changes[, 1] <- changes[, 1] - 1 + time.offset        newnw <- z$newnetwork        attributes(newnw) <- c(attributes(newnw), list(formation = formation,             dissolution = dissolution, stats.form = stats.form,             stats.diss = stats.diss, monitor = monitor, stats = stats,             coef.form = coef.form, coef.diss = coef.diss, constraints = constraints,             start = nw %n% "time" + 0, end = nw %n% "time" +                 time.slices, changes = changes))        newnw    })}, simplify = FALSE)
 7: simulate.network(fit.sim, formation = formation, dissolution = dissolution,     coef.form = coef.form, coef.diss = coef.diss$coef.crude,     time.slices = nsteps, constraints = constraints, monitor = nwstats.formula,     nsim = 1, control = set.control.stergm)
 8: simulate(fit.sim, formation = formation, dissolution = dissolution,     coef.form = coef.form, coef.diss = coef.diss$coef.crude,     time.slices = nsteps, constraints = constraints, monitor = nwstats.formula,     nsim = 1, control = set.control.stergm)
 9: netdx(est, nsims = 3, nsteps = 10, keep.tedgelist = TRUE, verbose = FALSE)
An irrecoverable exception occurred. R is aborting now ...