Additional output to print method for equiv_change_mean

cmstatr · Mar 13, 2024 · 895bbb3 · 895bbb3
1 parent 0fc40f2
commit 895bbb3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/equiv.R b/R/equiv.R
@@ -933,6 +933,10 @@ print.equiv_change_mean <- function(x, ...) {
                  justify3, width3, ...))
   cat(format_row(list("SD", x$sd_qual, x$sd_sample),
                  justify3, width3, ...))
+  cat(format_row(list("Pooled SD", x$sp),
+                 justify2, width2, ...))
+  cat(format_row(list("t0", x$t0),
+                 justify2, width2, ...))
   cat(format_row(list("Result", x$result),
                  justify2, width2, ...))
   cat(format_row(