Nel caso l'assunzione distributiva è data da due variabili casuali binomiali indipendenti e . L'ipotesi nulla è l'uguaglianza . Ma il test esatto di Fisher è un test condizionale: si basa sulla distribuzione condizionale di dato . Questa distribuzione è una distribuzione ipergeometrica con un parametro sconosciuto: il rapporto di probabilità e quindi l'ipotesi nulla è .X 1 ∼ B i n ( n 1 , θ 1 ) X 2 ∼ B i n ( n 2 , θ 2 ) θ 1 = θ 2 X 1 X 1 + X 2 ψ = θ 12 × 2X1∼ B i n ( n1, θ1)X2∼ B i n ( n2, θ2)θ1= θ2X1X1+ X2 ψ=1ψ = θ11 - θ1θ21 - θ2ψ = 1
Questa distribuzione ha la sua pagina Wikipedia .
Per valutarlo con R, puoi semplicemente usare la formula che definisce la probabilità condizionale:
p1 <- 7/27
p2 <- 14/70
x1 <- 7; n1 <- 27
x2 <- 14; n2 <- 56
#
m <- x1+x2
dbinom(x1, n1, p1)*dbinom(x2, n2, p2)/sum(dbinom(0:m, n1, p1)*dbinom(m-(0:m), n2, p2))
[1] 0.1818838
Oppure usa la dnoncenhypergeom
funzione del MCMCpack
pacchetto:
psi <- p1/(1-p1)/(p2/(1-p2)) # this is the odds ratio
MCMCpack::dnoncenhypergeom(x=x1, n1, n2, x1+x2, psi)
[1] 0.1818838