absdiffcat() no longer constructs a full sociomatrix when computing t…

…he set of achievable differences, unless nodal covariate values are all distinct.
statnet · Jan 8, 2024 · 402cd69 · 402cd69
1 parent f869593
commit 402cd69
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.6-7289
-Date: 2024-01-02
+Version: 4.6-7290
+Date: 2024-01-08
 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/InitErgmTerm.R b/R/InitErgmTerm.R
@@ -553,7 +553,8 @@ InitErgmTerm.absdiffcat <- function(nw, arglist, ..., version=packageVersion("er
   nodecov <- ergm_get_vattr(attrarg, nw, accept = "numeric")
   attrname <- attr(nodecov, "name")
 
-  u <- sort(unique(as.vector(abs(outer(nodecov,nodecov,"-")))),na.last=NA)
+  unodecov <- unique(nodecov)
+  u <- sort(unique(as.vector(abs(outer(unodecov,unodecov,"-")))),na.last=NA)
   u <- u[u>0]
 
   u <- ergm_attr_levels(a$levels, nodecov, nw, levels = u)