https://cran.r-project.org/web/packages ... index.html[code]
# instalace balicku
install.packages('votesys')
# nacteni balicku
library('votesys')
# volebni listky (kombinace a pocet)
raw <- list2ballot(x = list(c('a','c','b','e','d'),
c('a','d','e','c','b'),
c('b','e','d','a','c'),
c('c','a','b','e','d'),
c('c','a','e','b','d'),
c('c','b','a','d','e'),
c('d','c','e','b','a'),
c('e','b','a','d','c')),
n = c(5, 5, 8, 3, 7, 2, 7, 8))
# volebni matice
vote <- create_vote(raw, xtype = 3, candidate = c('a','b','c','d','e'))
# vypocet viteze
win <- cdc_schulze(vote)
# vitez ("e")
win$winner
[1] "e"
[/code]
Ale pokud je musíš očíslovat, pak se nad tím alespoň zamyslíš. Když volíš nejprve přijatelné, tak nad tím moc přemýšlet nemusíš. Já to dám všem a hodně lidí to dělá podobně. To už by musel kandidovat někdo opravdu nepřijatelný nebo úplně neznámý, abych ho v prvním kole nevolil. No a pak máš druhé kolo a tam už volíš z předvýběru, ale pořád moc velkého. Myslím, že bychom mohli zkusit ten SW nainstalovat na nějaké pískoviště a kontrolně v něm zopakovat kandidátku do eurovoleb. Hlasujících by bylo možná méně, ale možná také ne. Člověk je zvědavý jako ... opice. 
. primárky do libovolných voleb - pořadí kandidátů.
-- Lucie Spáčilová