## 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
# plot(gofflo)
# #
# # And now the odds
# #
# plot(gofflo, plotlogodds=TRUE)
# #
# # Use the formula version
# #
# gof(flomarriage ~ edges + kstar(2), coef=c(-1.6339, 0.0049))
# ## End(Not run)
Run the code above in your browser using DataLab