Update helper_output_print.R

konfound-project · May 6, 2024 · 98094e6 · 98094e6
1 parent 61d24b2
commit 98094e6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/helper_output_print.R b/R/helper_output_print.R
@@ -140,7 +140,7 @@ output_print <- function(n_covariates,
       cat("\n")
       cat(paste0("with the outcome and ", round(r_con, 3), " with the predictor of interest (conditioning"))
       cat("\n")
-      cat("on all observed covariates in the model; signs are interchangeable)")
+      cat("on all observed covariates in the model; signs are interchangeable). This is")
       cat("\n")
       cat(paste0("based on a threshold of ", round(critical_r, 3), " for statistical significance (alpha = ", alpha, ").\n"))
       cat("\n")
@@ -156,7 +156,7 @@ output_print <- function(n_covariates,
       cat("\n")
       cat("of interest (conditioning on all observed covariates in the model;")
       cat("\n")
-      cat(paste0("signs are interchangeable) based on a threshold of ", round(critical_r, 3), " for"))
+      cat(paste0("signs are interchangeable). This is based on a threshold of ", round(critical_r, 3), " for"))
       cat("\n")
       cat("statistical significance (alpha = ", alpha, ").\n", sep = "")
       cat("\n")