# 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