teste exato de Fisher
# este teste avalia se a frequência de uma variável X depende de uma variável Y
# pode ser usado nas mesmas cituações que o teste qui-quadrado para independência, com a vantagem de ser mais acurado em amostras pequenas
# Será considerado um exemplo de Sampaio (2010) página 118 onde será avaliado se a prenhez de éguas depende do diluente. Neste exemplo um diluente A foi avaliado em 30 éguas sendo os resultados de prenhez (17(+)/13(-)). Um diluente B foi avaliado também em 30 éguas sendo os resultados de prenhez (25(+)/5(-)).
# entrada dos dados (forma de matriz)
dados=matrix(c(17,25,13,5), ncol=2)
dados
# pode-se inserir nomes na matriz (tabela)
colnames(dados)=c("Prenhez_Positiva","Prenhez_Negativa")
rownames(dados)=c("Diluente_A","Diluente_B")
dados
# teste exato de Fisher
fisher.test(dados)
# sendo p-value<0,05 conclui-se que a prenhez depende do diluente