## Not run:
# #
# data(florentine)
# #
# # test the mcmc.diagnostics function
# #
# gest <- ergm(flomarriage ~ edges + kstar(2))
# summary(gest)
#
# #
# # Plot the probabilities first
# #
# mcmc.diagnostics(gest)
# #
# # Use coda directly
# #
# library(coda)
# #
# plot(gest$sample, ask=FALSE)
# #
# # A full range of diagnostics is available
# # using codamenu()
# #
# ## End(Not run)
Run the code above in your browser using DataLab