if (FALSE) {
data(simdiss, package = "dmbc")
# Shorter run than default.
sim.fit <- dmbc(simdiss,
control = dmbc_control(burnin = 1000, nsim = 2000, thin = 1, verbose = TRUE),
prior = dmbc_prior(sigma2 = list(a = 1, b = 4)))
}
Run the code above in your browser using DataLab