# NOT RUN {
library(bayestestR)
# precision = 1 is used to speed up examples...
p_rope(
x = rnorm(1000, mean = 1, sd = 1),
range = c(-0.1, 0.1),
precision = 1
)
df <- data.frame(replicate(4, rnorm(100)))
p_rope(df, precision = 1)
library(rstanarm)
model <- stan_glm(mpg ~ wt + gear, data = mtcars, chains = 2, iter = 200, refresh = 0)
p_rope(model, precision = 1)
library(emmeans)
p_rope(emtrends(model, ~1, "wt"))
# }
# NOT RUN {
library(brms)
model <- brms::brm(mpg ~ wt + cyl, data = mtcars)
p_rope(model)
library(BayesFactor)
bf <- ttestBF(x = rnorm(100, 1, 1))
p_rope(bf)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab