Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
# change the priors for 8 schools:
baggr(schools, model = "rubin", pooling = "partial",
prior_hypermean = normal(5,5),
prior_hypersd = normal(0,20))
# }
# NOT RUN {
# passing priors as a list
custom_priors <- list(hypercor = lkj(1), hypersd = normal(0,10),
hypermean = multinormal(c(0,0),matrix(c(10,3,3,10),2,2)))
baggr(microcredit_summary_data, model = "mutau",
pooling = "partial", prior = custom_priors)
# }
Run the code above in your browser using DataLab