#
data(sampson)
gest <- ergmm(samplike ~ latent(d=2,G=3))
summary(gest)
#
# Draw from the posterior
#
g.sim <- simulate(gest)
plot(g.sim)
#
# Draw from the first draw from the posterior
#
g.sim <- with(gest,simulate(model,par=samples[[1]],prior=prior))
plot(g.sim)
Run the code above in your browser using DataLab