if (FALSE) { # identical(Sys.getenv("NOT_CRAN"), "true") && require("rstanarm")
library(bayestestR)
library(rstanarm)
model <<- suppressWarnings(stan_glm(
Sepal.Length ~ Petal.Width * Species,
data = iris,
chains = 2, iter = 200, refresh = 0
))
x <- rope(model, verbose = FALSE)
plot(x)
x <- hdi(model)
plot(x) + theme_modern()
x <- p_direction(model, verbose = FALSE)
plot(x)
model <<- suppressWarnings(stan_glm(
mpg ~ wt + gear + cyl + disp,
chains = 2,
iter = 200,
refresh = 0,
data = mtcars
))
x <- equivalence_test(model, verbose = FALSE)
plot(x)
}
Run the code above in your browser using DataLab