data(sampson)
gest<-ergm(samplike~edges+gwesp(alpha=.5,fixed=FALSE),
control=control.ergm(MCMLE.maxit=3))
summary(gest)
# A statistic for esp(1),...,esp(16)
simulate(gest,statsonly=TRUE)
tmp<-fix.curved(gest)
tmp
# A gwesp() statistic only
simulate(tmp$formula, coef=tmp$theta, statsonly=TRUE)
Run the code above in your browser using DataLab