Fixed bugg due to release of version 0.10.0 of bayestest

AngelosPsy · Jun 1, 2021 · d327352 · d327352
1 parent 3baf486
commit d327352
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/R/rm_banova_mf.R b/R/rm_banova_mf.R
@@ -124,16 +124,20 @@ rm_banova_mf <- function(cs1,
     bayestestR::bayesfactor_inclusion(tmpBANOVA, match_models = TRUE) %>%
     dplyr::mutate(model = rownames(.)) %>%
     dplyr::filter(model == selected_term) %>%
-    dplyr::select(BF) %>%
-    as.numeric()
+    data.frame() %>%
+    dplyr::select(log_BF) %>%
+    as.numeric() %>%
+    exp()
 
   # Bayes factors for non-matched models
   bfum <-
     bayestestR::bayesfactor_inclusion(tmpBANOVA, match_models = FALSE) %>%
     dplyr::mutate(model = rownames(.)) %>%
     dplyr::filter(model == selected_term) %>%
-    dplyr::select(BF) %>%
-    as.numeric()
+    data.frame() %>%
+    dplyr::select(log_BF) %>%
+    as.numeric() %>%
+    exp()
 
   bfmm_res <- data.frame(
     x = selected_term,