README.md

In DexGroves/avr: Alternative voting systems in R.

avr

Alternative voting systems in R.

Currently supports instant runoff voting, and single transferable vote.

IRV

votes <- list(
  n1 = c("a", "b", "c", "d"),
  n2 = c("a", "b", "c", "d"),
  n3 = c("a", "b", "c", "d"),
  n4 = c("b", "a", "c", "d"),
  n5 = c("b", "a", "c", "d"),
  n6 = c("c", "b", "c", "d"),
  n7 = c("c", "b", "c", "d"),
  n8 = c("d", "c", "c", "d")
)

irv(votes)
# An avr irv object.
# Winner: a
# ...in 3 rounds.
# Dropped in round 0:     None
# Dropped in round 1:     d
# Dropped in round 2:     b
# Dropped in round 3:     c

# Or using a ballot card data format
map <- c("a", "b", "c", "d", "e")
votes <- list(
  ballot(0, 3, 1, 2, 0, map = map),
  ballot(0, 3, 1, 2, 0, map = map),
  ballot(2, 0, 0, 0, 1, map = map),
  ballot(0, 3, 1, 2, 0, map = map)
)
irv(votes)

STV example from wikipedia

replist <- function(arg, times) lapply(seq(times), function(i) arg)

votes <- c(
  replist("Orange",                     4),
  replist(c("Pear", "Orange"),          2),
  replist(c("Chocolate", "Strawberry"), 8),
  replist(c("Chocolate", "Candy"),      4),
  replist("Strawberry",                 1),
  replist("Candy",                      1)
)

stv(votes, 3)
# An avr stv object.
# Winners:
# Round 1:        Chocolate
# Round 2:        Orange
# Round 3:        Strawberry

DexGroves/avr documentation built on May 6, 2019, 2:12 p.m.