data(florentine)
flo1 <- bergm(flobusiness~edges+kstar(2),main.iter=15000,
sdprop=c(1,0.1),sdprior=20,theta=c(-2,0.1))
## Bayesian goodness-of-fit test
bgof(flo1,lag=150,n.sim=100)
## Let's improve the plots
bgof(flo1,lag=150,n.sim=100,n.deg=10,n.dist=9,n.esp=6)
Run the code above in your browser using DataLab