if (FALSE) {
# Load the florentine marriage network
data(florentine)
# Posterior parameter estimation:
p.flo <- bergm(flomarriage ~ edges + kstar(2),
burn.in = 50,
aux.iters = 500,
main.iters = 1000,
gamma = 1.2)
# Bayesian goodness-of-fit test:
bgof(p.flo,
aux.iters = 500,
sample.size = 30,
n.deg = 10,
n.dist = 9,
n.esp = 6)
}
Run the code above in your browser using DataLab