tests/testthat/test-rr_borda.R

In noeliarico/consensus: A package for ranking rules in the field of social choice theory

test_that("Borda points without ties", {
  # r <- parse_ranking("c ≻ a ≻ b ≻ d")
  # p <- calculatePoints(r, "borda")
  # expect_equal(p, c(2, 1, 3, 0), check.attributes = FALSE)
  # 
  # r <- parse_ranking("a ≻ d ≻ b ≻ c")
  # p <- calculatePoints(r, "borda")
  # expect_equal(p, c(3, 1, 0, 2), check.attributes = FALSE)
  # 
  # r <- parse_ranking("b ≻ a ≻ d ≻ c")
  # p <- calculatePoints(r, "borda")
  # expect_equal(p, c(2, 3, 0, 1), check.attributes = FALSE)
})

test_that("Borda points with ties", {
  
  # r <- parse_ranking("C2 ∼ C3 ∼ C4 ≻ C1 ∼ C5")
  # p <- calculatePoints(r, "borda")
  # expect_equal(p, c(0.5, 3.0, 3.0, 3.0, 0.5), check.attributes = FALSE)
  # 
  # r <- parse_ranking("C3 ∼ C5 ≻ C4 ≻ C1 ∼ C2")
  # p <- calculatePoints(r, "borda")
  # expect_equal(p, c(0.5, 0.5, 3.5, 2.0, 3.5), check.attributes = FALSE)
  # 
  # r <- parse_ranking("C1 ≻ C3 ∼ C4 ∼ C5 ≻ C2")
  # p <- calculatePoints(r, "borda")
  # expect_equal(p, c(4.0, 0.0, 2.0, 2.0, 2.0), check.attributes = FALSE)
  
})

test_that("Borda profile of rankings without ties", {
  
})