From 8dc3afc5c0678f727cadf987549c3d51a26ad44b Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 23 Jul 2024 15:48:52 +0200
Subject: [PATCH] fix

---
 R/get_df.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/get_df.R b/R/get_df.R
index c325e7c68..a21a4fda8 100644
--- a/R/get_df.R
+++ b/R/get_df.R
@@ -499,8 +499,10 @@ get_df.mediate <- function(x, ...) {
 
 .check_df_type <- function(type) {
   # handle mixing of ci_method and type arguments
-  if (tolower(type) %in% c("profile", "uniroot", "quantile", "likelihood", "eti", "hdi", "bci", "boot", "spi", "analytical", "nokr")) {
+  if (tolower(type) %in% c("profile", "uniroot", "quantile", "likelihood", "eti", "hdi", "bci", "boot", "spi", "nokr")) {
     type <- "wald"
+  } else if (tolower(type) == "analytical") {
+    type <- "residual"
   }
   type
 }