skeleton <- c(0.05, 0.1, 0.15, 0.33, 0.5)
target <- 0.33
prior_fit1 <- crm_prior_beliefs(skeleton, target, model = 'empiric',
beta_sd = sqrt(1.34))
prior_fit2 <- crm_prior_beliefs(skeleton, target, model = 'logistic_gamma',
a0 = 3, beta_shape = 1,
beta_inverse_scale = 2)
Run the code above in your browser using DataLab