ergm_model.ergm_model() no longer clears auxiliaries if the model con…

…sists entirely of auxiliaries.
statnet · Oct 12, 2024 · 11e3630 · 11e3630
1 parent 2184aab
commit 11e3630
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ergm
-Version: 4.7-7435
-Date: 2024-10-11
+Version: 4.7-7439
+Date: 2024-10-12
 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/ergm_model.R b/R/ergm_model.R
@@ -127,7 +127,8 @@ ergm_model.ergm_model <- function(object, nw, ..., env=globalenv(), extra.aux=li
 
   ## If initialized auxiliaries are present, get rid of them.
   np <- nparam(model, byterm = TRUE, canonical = TRUE)
-  model$terms <- model$terms[np != 0]
+  if(any(np != 0))
+    model$terms <- model$terms[np != 0]
 
   if(!terms.only){
     model <- ergm.auxstorage(model, nw, term.options=model$term.options, extra.aux=extra.aux)