From 11d659b51713fb938dc91ebf24917424925974d7 Mon Sep 17 00:00:00 2001 From: "Pavel N. Krivitsky" Date: Thu, 19 Jan 2023 16:36:01 +1100 Subject: [PATCH] In mcmc.diagnostics.ergm(), tweaked the statistic name abbreviation algorithm settings. references statnet/ergm#500 --- DESCRIPTION | 4 ++-- R/mcmc.diagnostics.ergm.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index ecf812ff6..51e5d58d5 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ergm -Version: 4.4-7157 -Date: 2023-01-09 +Version: 4.4-7158 +Date: 2023-01-19 Title: Fit, Simulate and Diagnose Exponential-Family Models for Networks Authors@R: c( person("Mark S.", "Handcock", role=c("aut"), email="handcock@stat.ucla.edu"), diff --git a/R/mcmc.diagnostics.ergm.R b/R/mcmc.diagnostics.ergm.R index ee73d6c44..aca7c31ba 100644 --- a/R/mcmc.diagnostics.ergm.R +++ b/R/mcmc.diagnostics.ergm.R @@ -242,10 +242,10 @@ mcmc.diagnostics.ergm <- function(object, } if(compact){ - varnames(sm) <- abbreviate(varnames(sm), compact, use.classes=FALSE, method="both.sides") + varnames(sm) <- abbreviate(varnames(sm), compact) if(!is.null(sm.obs)){ - varnames(sm.obs) <- abbreviate(varnames(sm.obs), compact, use.classes=FALSE, methods="both.sides") + varnames(sm.obs) <- abbreviate(varnames(sm.obs), compact) } }else compact <- getOption("digits")+2