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