# Fit a model with complete rankings
set.seed(123)
mod <- compute_sequentially(
complete_rankings,
hyperparameters = set_hyperparameters(n_items = 5),
smc_options = set_smc_options(n_particles = 100, n_particle_filters = 1)
)
# Create summary
summary(mod)
Run the code above in your browser using DataLab