From 37ad554f6d05ebc22a320f2995551cbd54c99595 Mon Sep 17 00:00:00 2001 From: Daniel Date: Thu, 27 Jul 2023 09:28:03 +0200 Subject: [PATCH] Update R/report_s.R Co-authored-by: Brenton M. Wiernik --- R/report_s.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/report_s.R b/R/report_s.R index 39e05ee6..7a95828f 100644 --- 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." )