if (FALSE) { # require("rstanarm")
# \donttest{
library(rstanarm)
model <- suppressWarnings(
stan_glm(mpg ~ wt + gear, data = mtcars, chains = 2, iter = 200, refresh = 0)
)
effective_sample(model)
# }
}
Run the code above in your browser using DataLab