data-raw/integer_sequences.R

In osorensen/BayesMallows: Bayesian Preference Learning with the Mallows Rank Model

values <- read.delim("https://oeis.org/A062869/b062869.txt",
  sep = " ",
  col.names = paste0("V", 1:2),
  colClasses = c("NULL", "numeric")
)$V2
n_items <- seq(from = 1, to = 50, by = 1)

footrule_cardinalities <- list()
for (n in n_items) {
  distances <- seq(from = 0, to = floor(n^2 / 2), by = 2)
  footrule_cardinalities[[n]] <- list(
    distance = distances,
    value = values[seq_along(distances)]
  )
  values <- values[-seq_along(distances)]
}

values <- read.delim("https://oeis.org/A175929/b175929.txt",
  sep = " ",
  col.names = paste0("V", 1:2),
  colClasses = c("NULL", "numeric")
)$V2
n_items <- seq(from = 1, to = 20, by = 1)
values <- na.omit(values)
spearman_cardinalities <- list()
for (n in n_items) {
  distances <- seq(from = 0, to = 2 * choose(n + 1, 3), by = 2)
  if (length(distances) > length(values)) stop("error!")
  spearman_cardinalities[[n]] <- list(
    distance = distances,
    value = values[seq_along(distances)]
  )
  values <- values[-seq_along(distances)]
}

values <- read.delim("https://oeis.org/A126065/b126065.txt",
  sep = " ",
  col.names = paste0("V", 1:2),
  colClasses = c("NULL", "numeric")
)$V2
n_items <- seq(from = 2, to = 60, by = 1)
ulam_cardinalities <- list(list(distance = 0, value = 1))
for (n in n_items) {
  distances <- seq(from = 0, to = n - 1, by = 1)
  if (length(distances) > length(values)) stop("error!")
  ulam_cardinalities[[n]] <- list(
    distance = distances,
    value = values[seq_along(distances)]
  )
  values <- values[-seq_along(distances)]
}

usethis::use_data(footrule_cardinalities, spearman_cardinalities,
  ulam_cardinalities,
  internal = TRUE
)