GH #142; median/mean switched for tidyMCMC

bbolker · Aug 4, 2023 · 3ba939b · 3ba939b
1 parent b9483f5
commit 3ba939b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mcmc_tidiers.R b/R/mcmc_tidiers.R
@@ -99,7 +99,7 @@ tidyMCMC <- function(x,
     ss <- ss[, pars]
   }
 
-  m <- if (robust) colMeans(ss) else apply(ss, 2, median)
+  m <- if (robust) apply(ss, 2, median) else colMeans(ss)
 
   stdfun <- if (robust) stats::mad else stats::sd
   ret <- dplyr::tibble(