Fixed a bug in simulate.ergm_model() that would cause problems if the…

… proposal requested an auxiliary *and* a monitor= model was in effect.
statnet · Feb 6, 2024 · acfa597 · acfa597
1 parent 1eec7b9
commit acfa597
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ergm
-Version: 4.6-7340
-Date: 2024-02-05
+Version: 4.6-7346
+Date: 2024-02-06
 Title: Fit, Simulate and Diagnose Exponential-Family Models for Networks
 Authors@R: c(
              person(c("Mark", "S."), "Handcock", role=c("aut"), email="[email protected]"),

diff --git a/R/simulate.ergm.R b/R/simulate.ergm.R
@@ -435,6 +435,10 @@ simulate.ergm_model <- function(object, nsim=1, seed=NULL,
     if (verbose) message(sQuote(paste0(proposal$pkgname,":MH_",proposal$name)),".")
   }
 
+  proposal$aux.slots <- m$slots.extra.aux$proposal
+
+  ## TODO: In principle, we can initialize an empty model with just
+  ## the auxiliary and append it to the model.
   if(length(proposal$auxiliaries) && !length(m$slots.extra.aux$proposal))
     stop("The proposal appears to be requesting auxiliaries, but the initialized model does not export any proposal auxiliaries.")