tests/testthat/fixtures-compact-src/gmap_binomial_single_trial_fixture.R

In RBesT: R Bayesian Evidence Synthesis Tools

fixture_call <- quote(
  gMAP(
    cbind(r, n - r) ~ 1,
    data = colitis[1, ],
    family = binomial,
    tau.dist = "HalfNormal",
    tau.prior = c(0.5),
    beta.prior = cbind(0, 1),
    warmup = 1000,
    iter = 2000,
    chains = 4,
    thin = 1
  )
)

fixture_seed <- 34252L
compact_seed <- 873461L
compact_nc <- 2L
compact_digits <- 4L

fixture <- suppressWarnings(
  compact_gmap_fixture_sample(fixture_call, seed = fixture_seed)
)