Update summary print with homogeneity test suggestion

thomvolker · Aug 31, 2023 · a821a24 · a821a24
1 parent e0c1bcb
commit a821a24
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/print.R b/R/print.R
@@ -54,6 +54,8 @@ print.summary.ulsif <- function(x, digits = max(3L, getOption("digits") - 3L), .
                paste(" < .001"),
                paste(" = ", format(x$p_value, digits = 3, ...))),
         "\n\n", sep = "")
+  } else {
+    cat("For a two-sample homogeneity test, use 'summary(x, test = TRUE)'.\n\n")
   }
   invisible(x)
 }