# \donttest{
if (requireNamespace("INLA", quietly = TRUE)) {
set.seed(123)
data <- data.frame(
y = rbinom(100, 1, 0.2),
x = rnorm(100),
group = factor(rep(1:10, each = 10))
)
# qbrmb_aggressive requires a mixed model with random intercepts
fit <- qbrmb_aggressive(y ~ x + (1 | group), data = data, verbose = FALSE)
}
# }
Run the code above in your browser using DataLab