if (FALSE) { # require("rstanarm") && require("brms") && require("BayesFactor")
# \donttest{
model <- suppressWarnings(rstanarm::stan_glm(
mpg ~ wt + gear,
data = mtcars,
chains = 2,
iter = 200,
refresh = 0
))
rope_range(model)
model <- suppressWarnings(
rstanarm::stan_glm(vs ~ mpg, data = mtcars, family = "binomial", refresh = 0)
)
rope_range(model)
model <- brms::brm(mpg ~ wt + cyl, data = mtcars)
rope_range(model)
model <- BayesFactor::ttestBF(mtcars[mtcars$vs == 1, "mpg"], mtcars[mtcars$vs == 0, "mpg"])
rope_range(model)
model <- lmBF(mpg ~ vs, data = mtcars)
rope_range(model)
# }
}
Run the code above in your browser using DataLab