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.
plot_prior(beta = NULL, fit = NULL, data = NULL)A number > 0. Rate of the exponential distribution.
A fitted model, as obtained from fit_model().
Data list (from prepare_data()).
A plot
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)
}