to close #65 and to close #70

konfound-project · Feb 9, 2024 · b07581d · b07581d
1 parent ab1cc88
commit b07581d
Showing 1 changed file with 16 additions and 16 deletions.
diff --git a/R/helper_output_dataframe.R b/R/helper_output_dataframe.R
@@ -3,26 +3,26 @@
 output_df <- function(est_eff, beta_threshhold, unstd_beta, bias = NULL, sustain = NULL, recase, obs_r, critical_r, r_con, itcv, non_linear) {
   if (abs(est_eff) > abs(beta_threshhold)) {
     df <- dplyr::tibble(
-      action <- "to_invalidate",
-      inference <- "reject_null",
-      percent_bias_to_change_inference <- round(bias, 3),
-      replace_null_cases <- round(recase, 3),
-      unstd_beta <- unstd_beta,
-      beta_threshhold <- beta_threshhold,
-      omitted_variable_corr <- r_con,
-      itcv <- itcv
+      action = "to_invalidate",
+      inference = "reject_null",
+      percent_bias_to_change_inference = round(bias, 3),
+      replace_null_cases = round(recase, 3),
+      unstd_beta = unstd_beta,
+      beta_threshhold = beta_threshhold,
+      omitted_variable_corr = r_con,
+      itcv = itcv
     )
   }
   else if (abs(est_eff) < abs(beta_threshhold)) {
     df <- dplyr::tibble(
-      action <- "to_sustain",
-      inference <- "fail_to_reject_null",
-      percent_bias_to_change_inference <- round(sustain, 3),
-      replace_null_cases <- round(recase, 3),
-      unstd_beta <- unstd_beta,
-      beta_threshhold <- beta_threshhold,
-      omitted_variable_corr <- r_con,
-      itcv <- itcv
+      action = "to_sustain",
+      inference = "fail_to_reject_null",
+      percent_bias_to_change_inference = round(sustain, 3),
+      replace_null_cases = round(recase, 3),
+      unstd_beta = unstd_beta,
+      beta_threshhold = beta_threshhold,
+      omitted_variable_corr = r_con,
+      itcv = itcv
     )
   }
   else if (est_eff == beta_threshhold) {