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