Update helper_output_print.R

Author: JihoonChoi26

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")