Error in analyzing preferences

[osorensen]

library(BayesMallowsSMC2)
dat <- subset(pairwise_preferences, user == 22)
topological_sorts <- split(dat, f =~ timepoint) |>
  lapply(split, f =~ user) |>
  lapply(function(x) {
    lapply(x, function(y) {
      precompute_topological_sorts(
        prefs = as.matrix(y[, c("top_item", "bottom_item"), drop = FALSE]),
        n_items = 5,
        save_frac = 1
      )
    })
  })

set.seed(2)
mod <- compute_sequentially(
  data = dat,
  hyperparameters = set_hyperparameters(n_items = 5),
  smc_options = set_smc_options(
    n_particles = 100,
    max_rejuvenation_steps = 5
  ),
  topological_sorts = topological_sorts
)
#> Error: Mat::col(): index out of bounds

^{Created on 2025-04-15 with reprex v2.1.1}