R/priorcontrol.R

In DDPstar: Density Regression via Dirichlet Process Mixtures of Normal Structured Additive Regression Models

priorcontrol <-
function(m0 = NA, S0 = NA, nu = NA, Psi = NA,
  atau = 1, btau = 0.005, a = 2, b = NA, alpha.fixed = FALSE, alpha = 1, aalpha = 2, balpha = 2, L = 10) {
  list(m0 = m0, S0 = S0, nu = nu, Psi = Psi, atau = atau, btau = btau, a = a, b = b, alpha.fixed = alpha.fixed, alpha = alpha, aalpha = aalpha, balpha = balpha, L = L)
}