The r (preference) parameter in Young et al. model takes a prior
exponential distribution with rate = beta. Use this function to
visualise the prior distribution of r given the chosen beta.
Alternatively, if providing the fitted model, a plot comparing the
prior versus posterior preference(s) will be produced.
Arguments
- beta
A number > 0. Rate of the exponential distribution.
- fit
A fitted model, as obtained from
fit_model().- data
Data list (from
prepare_data()).
Examples
if (FALSE) { # interactive()
## Providing value for beta
plot_prior(beta = 0.01)
plot_prior(beta = 0.001)
## Providing fitted model
data(web)
dt <- prepare_data(mat = web, sampl.eff = rep(20, nrow(web)))
fit <- fit_model(dt, refresh = 0)
plot_prior(fit = fit, data = dt)
}