## Not run:
# #
# data(florentine)
# #
# # test the gof.ergm function
# #
# gest <- ergm(flomarriage ~ edges + kstar(2))
# gest
# summary(gest)
#
# #
# # Plot the probabilities first
# #
# gofflo <- gof(gest)
# gofflo
# summary(gofflo)
# ## End(Not run)
Run the code above in your browser using DataLab