Merge pull request #45 from svteichman/multiple_covariate

Updating return value when `verbose = FALSE`
statdivlab · Jul 25, 2023 · b15b10a · b15b10a
2 parents 0917725 + 2269ac7
commit b15b10a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/run_happi.R b/R/run_happi.R
@@ -454,7 +454,7 @@ happi <- function(outcome,
                 "starts_df" = starts_df))
   } else {
     p_val <- tail(my_estimates$pvalue[!is.na(my_estimates$pvalue)], 1)
-    beta <- tail(my_estimated_beta[!is.na(my_estimated_beta)], 1)
+    beta <- tail(my_estimated_beta[!is.na(my_estimated_beta[, 1]), ], 1)
     LRT <- tail(my_estimates$LRT[!is.na(my_estimates$LRT)], 1)
     return(list(p_val = p_val, beta = beta, LRT = LRT))
   }