# \donttest{
# \dontshow{
options(ergm.eval.loglik=FALSE)
# }
data(sampson)
gest<-ergm(samplike~edges+gwesp(),
control=control.ergm(MCMLE.maxit=2))
summary(gest)
# A statistic for esp(1),...,esp(16)
simulate(gest,output="stats")
tmp<-fix.curved(gest)
tmp
# A gwesp() statistic only
simulate(tmp$formula, coef=tmp$theta, output="stats")
# }
Run the code above in your browser using DataLab