diff --git a/DESCRIPTION b/DESCRIPTION index bea1bb1..dc2f7d2 100644 --- 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 index 0308185..13516ad 100644 --- 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)