Bug edits

gemmagerber · Feb 27, 2024 · e2aa9af · e2aa9af
1 parent c40667f
commit e2aa9af
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/mcmc_plots.R b/R/mcmc_plots.R
@@ -59,7 +59,11 @@ mcmc_plots <- function(x, flow, xranges = FALSE, ...) {
 
   ### Four input types accepted (mcmc, matrix, data.frame, multi_net_output)
   if (is.data.frame(x) | inherits(x, "mcmc")) {
-    z <- coda::as.mcmc(x)
+
+    z <- as.data.frame(x[[paste0(flow)]])
+    colnames(z) <- paste0(flow)
+    z <- coda::as.mcmc(z)
+
   } else if (inherits(x, "multi_net_output")) {
     all <- as.data.frame(x[["solved.flow.values"]])
     z <- as.data.frame(all[[paste0(flow)]])