Update R/report_s.R

Co-authored-by: Brenton M. Wiernik <[email protected]>
easystats · Jul 27, 2023 · 37ad554 · 37ad554
1 parent 59f7547
commit 37ad554
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/report_s.R b/R/report_s.R
@@ -28,7 +28,7 @@ report_s <- function(s = NULL, p = NULL) {
   all_heads <- round(s)
   chance <- sprintf("%.2g", 100 * p)
   msg <- paste0(
-    "If the test hypothesis and entire model (all assumptions) were true, ",
+    paste0("If the test hypothesis (", test_parameter, " = ", test_value) " and all model assumptions were true, ",
     "there is a ", chance, "% chance of observing this outcome. How weird is that? ",
     "It's hardly more surprising than getting ", all_heads, " heads in a row with fair coin tosses."
   )