# See help(ergm) for a description of this model. The likelihood will
# not be evaluated.
data(florentine)
## Not run:
# # The default maximum number of iterations is currently 20. We'll only
# # use 2 here for speed's sake.
# gest <- ergm(flomarriage ~ kstar(1:2) + absdiff("wealth") + triangle, eval.loglik=FALSE)
#
# gest <- ergm(flomarriage ~ kstar(1:2) + absdiff("wealth") + triangle, eval.loglik=FALSE,
# control=control.ergm(MCMLE.maxit=2))
# # Log-likelihood is not evaluated, so no deviance, AIC, or BIC:
# summary(gest)
# # Evaluate the log-likelihood and attach it to the object.
#
# # The default number of bridges is currently 20. We'll only use 3 here
# # for speed's sake.
# gest.logLik <- logLik(gest, add=TRUE)
#
# gest.logLik <- logLik(gest, add=TRUE, control=control.logLik.ergm(nsteps=3))
# # Deviances, AIC, and BIC are now shown:
# summary(gest.logLik)
# # Null model likelihood can also be evaluated, but not for all constraints:
# logLikNull(gest) # == network.dyadcount(flomarriage)*log(1/2)
# ## End(Not run)
Run the code above in your browser using DataLab