data(florentine)
# Parameter estimation via approximate exchange algorithm with ADS:
flo <- bergm(flomarriage ~ edges + kstar(2),
burn.in=10,
aux.iters=500,
main.iters=500,
gamma=1)
# MCMC diagnostics:
bergm.output(flo)
# Bayesian goodness-of-fit test:
bgof(flo,
aux.iters=500,
sample.size=50,
n.deg=10,
n.dist=9,
n.esp=6)
Run the code above in your browser using DataLab