# vector
(votes <- c(81, 9, 10))
apply_quorum(votes, 10)
apply_quorum(votes, .11)
# matrix
(votes_matrix <- matrix(c(91, 9, 199, 1), nrow = 2))
apply_quorum(votes_matrix, quorum_all(total = 0.1))
apply_quorum(votes_matrix, c(FALSE, TRUE))
# named matrix needs a named vector
rownames(votes_matrix) <- c("A", "B")
quorum_vec = c(B = TRUE, A = FALSE)
apply_quorum(votes_matrix, quorum_vec)
Run the code above in your browser using DataLab