if (FALSE) {
nw <- network_initialize(n = 1000)
# Two dissolutions: an average duration of 300 versus 200
diss.300 <- dissolution_coefs(~offset(edges), 300, 0.001)
diss.200 <- dissolution_coefs(~offset(edges), 200, 0.001)
# Fit the two reference models
est300 <- netest(nw = nw,
formation = ~edges,
target.stats = c(500),
coef.diss = diss.300)
est200 <- netest(nw = nw,
formation = ~edges,
target.stats = c(500),
coef.diss = diss.200)
# Alternatively, update the 300 model with the 200 coefficients
est200.compare <- update_dissolution(est300, diss.200)
identical(est200$coef.form, est200.compare$coef.form)
}
Run the code above in your browser using DataLab