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