fit <- lapply(1:4, function(i) {
z <- matrix(rnorm(200), ncol = 2)
colnames(z) <- c("alpha", "beta")
coda::as.mcmc(z)
})
fit <- coda::as.mcmc.list(fit)
tidy_mcmc(fit)
tidy_mcmc(fit, spread = TRUE)
Run the code above in your browser using DataLab