Nothing
# File tests/testthat/test-nodrop.R in package ergm, part of the
# Statnet suite of packages for network analysis, https://statnet.org .
#
# This software is distributed under the GPL-3 license. It is free,
# open source, and has the attribution requirements (GPL Section 7) at
# https://statnet.org/attribution .
#
# Copyright 2003-2023 Statnet Commons
################################################################################
### Tests to make sure drop=FALSE works.
o <- options(ergm.eval.loglik=FALSE)
data(sampson)
test_that("shouldn't need to drop", {
# MPLE
expect_warning(ergm(samplike~edges, control=control.ergm(drop=FALSE)), NA)
# MCMC
expect_warning(ergm(samplike~edges, control=control.ergm(drop=FALSE, force.main=TRUE, MCMLE.maxit=2)), NA)
})
test_that("empty network", {
y0 <- network.initialize(10)
# MPLE
expect_warning(expect_warning(expect_warning(
ergm(y0~edges, control=control.ergm(drop=FALSE)),
"The MPLE does not exist!"),
"Network is empty and no target stats are specified."),
"Observed statistic.s. edges are at their smallest attainable values and drop=FALSE. The MLE is poorly defined.")
# MCMC
expect_warning(expect_warning(
ergm(y0~edges, control=control.ergm(drop=FALSE, force.main=TRUE, init=0, MCMLE.maxit=2)),
"Network is empty and no target stats are specified."),
"Observed statistic.s. edges are at their smallest attainable values and drop=FALSE. The MLE is poorly defined.")
})
test_that("full network", {
y1 <- as.network(matrix(1,10,10))
# MPLE
expect_warning(expect_warning(
ergm(y1~edges, control=control.ergm(drop=FALSE)),
"The MPLE does not exist!"),
"Observed statistic.s. edges are at their greatest attainable values and drop=FALSE. The MLE is poorly defined.")
# MCMC
expect_warning(
ergm(y1~edges, control=control.ergm(drop=FALSE, force.main=TRUE, init=0, MCMLE.maxit=2)),
"Observed statistic.s. edges are at their greatest attainable values and drop=FALSE. The MLE is poorly defined.")
})
options(o)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.