In mcmc.diagnostics.ergm(), tweaked the statistic name abbreviation a…

…lgorithm settings. references #500
statnet · Jan 19, 2023 · 11d659b · 11d659b
1 parent d59fbb3
commit 11d659b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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="[email protected]"),

diff --git 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