borrow_scenarios <- sim_borrowing_list(
list(
"No borrowing" = borrowing_none("ext"),
"Full borrowing" = borrowing_full("ext"),
"BDB, uninformative prior" = borrowing_hierarchical_commensurate(
"ext",
prior_gamma(0.001, 0.001)
),
"BDB, informative prior" = borrowing_hierarchical_commensurate(
"ext",
prior_gamma(1, 0.001)
)
)
)
Run the code above in your browser using DataLab