# NOT RUN {
library(bayestestR)
x <- data.frame(replicate(4, rnorm(100)))
x <- ci(x, ci = c(0.68, 0.89, 0.95))
reshape_ci(x)
reshape_ci(reshape_ci(x))
x <- data.frame(replicate(4, rnorm(100)))
x <- describe_posterior(x, ci = c(0.68, 0.89, 0.95))
reshape_ci(x)
reshape_ci(reshape_ci(x))
# }
Run the code above in your browser using DataLab