prior_parameters_stratified <- setPriorParametersStratified(c(1, 2), c(3, 4))
prior_parameters_berry <- setPriorParametersBerry(0, 1, 2)
prior_parameters_list <- combinePriorParameters(
list(prior_parameters_berry,
prior_parameters_stratified))
Run the code above in your browser using DataLab