# NOT RUN {
library(bayestestR)
posterior <- rnorm(1000)
ci(posterior)
ci(posterior, ci = c(.80, .89, .95))
df <- data.frame(replicate(4, rnorm(100)))
ci(df)
ci(df, ci = c(.80, .89, .95))
library(rstanarm)
model <- stan_glm(mpg ~ wt + gear, data = mtcars, chains = 2, iter = 200)
ci(model)
ci(model, ci = c(.80, .89, .95))
# }
# NOT RUN {
library(brms)
model <- brms::brm(mpg ~ wt + cyl, data = mtcars)
ci(model)
ci(model, ci = c(.80, .89, .95))
library(BayesFactor)
bf <- ttestBF(x = rnorm(100, 1, 1))
ci(bf)
ci(bf, ci = c(.80, .89, .95))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab