# NOT RUN {
library(rstanarm)
model <- stan_glm(mpg ~ wt + gear, data = mtcars, chains = 2, iter = 200, refresh = 0)
rope_range(model)
# }
# NOT RUN {
library(rstanarm)
model <- stan_glm(vs ~ mpg, data = mtcars, family = "binomial")
rope_range(model)
library(brms)
model <- brm(mpg ~ wt + cyl, data = mtcars)
rope_range(model)
library(BayesFactor)
bf <- ttestBF(x = rnorm(100, 1, 1))
rope_range(bf)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab