data-raw/perm11.R

num <- 11
file_name <- paste0("perm", num, ".csv")
perm <- read.csv(file.path("perms", file_name), header = FALSE)
candidates <- letters[1:num]
names(perm) <- candidates
perm11 <- list(profileOfRankings = perm,
               numberOfVoters = rep(1, nrow(perm)),
               candidates = candidates)
class(perm11) <- c("por", "list")
usethis::use_data(perm11, overwrite = TRUE)
noeliarico/consensus documentation built on March 18, 2023, 12:37 p.m.