fix

easystats · Sep 5, 2024 · e81ac49 · e81ac49
1 parent b8c317c
commit e81ac49
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/R/p_direction.R b/R/p_direction.R
@@ -84,7 +84,11 @@ p_direction.lm <- function(x,
                            null = 0,
                            ...) {
   # generate normal distribution based on CI range
-  out <- .posterior_ci(x, ci, ...)
+  result <- .posterior_ci(x, ci, ...)
+
+  # copy
+  out <- result$out
+  posterior <- result$posterior
 
   # add pd
   out$pd <- as.numeric(bayestestR::p_direction(

diff --git a/R/p_significance.R b/R/p_significance.R
@@ -140,7 +140,11 @@ bayestestR::p_significance
 #' @export
 p_significance.lm <- function(x, threshold = "default", ci = 0.95, verbose = TRUE, ...) {
   # generate normal distribution based on CI range
-  out <- .posterior_ci(x, ci, ...)
+  result <- .posterior_ci(x, ci, ...)
+
+  # copy
+  out <- result$out
+  posterior <- result$posterior
 
   # calculate the ROPE range
   if (all(threshold == "default")) {
@@ -198,7 +202,7 @@ p_significance.lm <- function(x, threshold = "default", ci = 0.95, verbose = TRU
     colnames(posterior) <- paste0(out$Parameter, "_", comps)
     out$Parameter <- paste0(out$Parameter, "_", comps)
   }
-  out
+  list(out = out, posterior = posterior)
 }