Updated the degree() EgoStat to match ergm 4.8.

statnet · Jan 23, 2025 · d63b86f · d63b86f
1 parent 5bc00c7
commit d63b86f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ergm.ego
 Version: 1.1-729
-Date: 2024-10-09
+Date: 2025-01-23
 Title: Fit, Simulate and Diagnose Exponential-Family Random Graph Models to Egocentrically Sampled Network Data
 Authors@R: c(
             person(c("Pavel", "N."), "Krivitsky", role=c("aut","cre"), email="pavel@statnet.org", comment=c(ORCID="0000-0002-9101-3362")),
@@ -12,7 +12,7 @@ Authors@R: c(
 	    person("Chad", "Klumb", role=c("ctb"), email="cklumb@gmail.com"))
 Depends:
     R (>= 4.1.0),
-    ergm (>= 4.7.1),
+    ergm (>= 4.8.0),
     egor (>= 1.24.2),
     network (>= 1.18.2)
 Imports:

diff --git a/R/EgoStat.R b/R/EgoStat.R
@@ -461,7 +461,7 @@ EgoStat.degree <- function(egor, d, by=NULL, homophily=FALSE, levels=NULL){
     bys <- rep(seq_along(levs),each=length(d))
     bynames <- rep(levs,each=length(d))
     degs <- rep(d,length(levs))
-    cn <- paste0("deg",degs,".",by,bynames)
+    cn <- paste0("deg",degs,".",by,".",bynames)
     h <- .mapply_col(function(e,c) as.numeric(c==degs & e==bys), xe, alterct)
   }else if(homophily){
     cn <-  paste0("deg",d,".homophily.",by)