Added a test for missing data MLE.

Author: krivit

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ergm.multi
-Version: 0.3.0-4285
-Date: 2026-03-22
+Version: 0.3.0-4275
+Date: 2026-03-23
 Title: Fit, Simulate and Diagnose Exponential-Family Models for Multiple or Multilayer Networks
 Authors@R: c(person(c("Pavel", "N."), "Krivitsky", role=c("aut","cre"), email="pavel@statnet.org", comment=c(ORCID="0000-0002-9101-3362")),
              person(c("Mark", "S."), "Handcock", role=c("ctb"), email="handcock@stat.ucla.edu"),

tests/testthat/test-missing.R

@@ -0,0 +1,19 @@
+library(ergm.multi)
+
+data(samplk)
+
+samplk1[1,] <- NA
+samplk2[,2] <- NA
+
+nwl <- list(samplk1, samplk2, samplk3)
+
+truth <- qlogis(sum(sapply(nwl, network.edgecount, na.omit = TRUE)) /
+                sum(sapply(nwl, network.dyadcount, na.omit = TRUE)))
+
+test_that("Multilayer network with missing data", {
+  expect_equal(coef(ergm(Layer(nwl) ~ edges)), truth, ignore_attr = TRUE)
+})
+
+test_that("Network sample with missing data", {
+  expect_equal(coef(ergm(Networks(nwl) ~ edges)), truth, ignore_attr = TRUE)
+})