This is a function to extract posterior probability from
the output from do_bms. It optionally
aggregates the model categories.
get_pp(fit, aggregate = "none")A list obtained from the do_bms.
An optional character string specifying whether and how to aggregate the model categories. This must be one of "none", "genotype", and "treatment".
a named vector of posterior probability