# \donttest{
# Fit a model with complete rankings
mod <- compute_sequentially(
complete_rankings,
hyperparameters = set_hyperparameters(n_items = 5),
smc_options = set_smc_options(n_particles = 100, n_particle_filters = 1)
)
# Plot alpha (default)
plot(mod)
# Plot tau
plot(mod, parameter = "tau")
# Plot rho for specific items
plot(mod, parameter = "rho", items = c(1, 3, 5))
# Plot rho for all items (if <= 5 items)
plot(mod, parameter = "rho")
# }
Run the code above in your browser using DataLab