if (.Platform$OS.type != "windows" || .Platform$r_arch != "i386") {
example_model <-
stan_glmer(cbind(incidence, size - incidence) ~ size + period + (1|herd),
data = lme4::cbpp, family = binomial, QR = TRUE,
# this next line is only to keep the example small in size!
chains = 2, cores = 1, seed = 12345, iter = 1000, refresh = 0)
example_model
}
Run the code above in your browser using DataLab