README.md

Desempate Técnico

Arquivos e funções utilizadas na dissertação de Filipe Zabala (2009) - Desempate Técnico.

Instalação

# Instalando pacotes
packs <- c('devtools', 'ellipse', 'klaR', 'rgl', 'VGAM')
new.packages <- packs[!(packs %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(packs, dep=TRUE)
update.packages(checkBuilt = TRUE, ask = FALSE)
devtools::install_github('filipezabala/desempateTecnico', force = T)

# Chamando biblioteca
library(desempateTecnico)

Exemplos

O exemplos a seguir dependem de simulações, portanto devem apresentar resultados ligeiramente diferentes entre as rodadas.

bayes

bayes(c(.4,.3,.3), 1000)

bayes(c(.3,.25,.2,.1,.05), 100)

bayes(rep(1/5,5), 500)

A seguir estão cenários com empate técnico tríplice segundo os institutos de pesquisa.

bayes(c(.5813972562, .3158114522, .1027912917), 50)

bayes(c(.5144202347, .3246860305, .1608937348), 100)

bayes(c(.4160925601, .3316216347, .2522858052), 500)

bayes(c(.3919345050, .3324785813, .2755869137), 10^3)

bayes(c(.3518464606, .3332479566, .3149055828), 10^4)

bayes(c(.3391808234, .3333247966, .3274943799), 10^5)
bayes(c(.3333333335, .3333333333, .3333333331), 10^20)

simplex2d

simplex2d()

simplex3d

simplex3d(.4, .3, .3, 1000)

simplex3d(.5144202347, .3246860305, .1608937348, 100)



filipezabala/desempateTecnico documentation built on Aug. 14, 2021, 2:04 p.m.