fix displaying BF instead of marginal likelihood in model summary

jasp-stats · Sep 18, 2023 · 75eec32 · 75eec32
1 parent c57670c
commit 75eec32
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/robustbayesianmetaanalysis.R b/R/robustbayesianmetaanalysis.R
@@ -1006,7 +1006,7 @@ RobustBayesianMetaAnalysis <- function(jaspResults, dataset, options, state = NU
 
   # compute the BF requested
   if (options[["inferenceModelsOverviewBfComparison"]] == "inclusion") {
-    bf <- fitSummary[["summary"]][, 7]
+    bf <- fitSummary[["summary"]][, 8]
   } else if (options[["inferenceModelsOverviewBfComparison"]] == "best") {
     bf <- exp(fitSummary[["summary"]][["marglik"]] - max(fitSummary[["summary"]][["marglik"]]))
   } else if (options[["inferenceModelsOverviewBfComparison"]] == "previous") {