data(florentine)
flo2 <- bergm(flobusiness~edges+kstar(2),main.iter=8000, popMCMC=TRUE,sdprior=50,block.iter=1000,sdgamma=1)
## MCMC output diagnostics for the second chain
mcmc.output(flo2,lags=150,chain=2)
Run the code above in your browser using DataLab