# 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)
# }
Run the code above in your browser using DataLab