data('ord_fit_mean')
# use function to calculate probability of top end of scale
pr_1s <- posterior_epred_ordbeta(ord_fit_mean,component="top")
# use function to calculate probability of bottom end of scale
pr_0s <- posterior_epred_ordbeta(ord_fit_mean,component="top")
# use function to calculate probability of continuous /
# beta-distributed part of scale
pr_beta <- posterior_epred_ordbeta(ord_fit_mean,component="top")
Run the code above in your browser using DataLab