İçinde durumunda dağılım varsayım iki bağımsız binom rastgele değişkenler olarak verilmektedir x 1 ~ B i n ( n 1 , θ 1 ) ve X, 2 ~ B i n ( n- 2 , θ 2 ) . Sıfır hipotezi eşitlik θ 1 = θ 2'dir . Ancak Fisher'ın kesin testi koşullu bir testtir: X 1 verilen X 1'in koşullu dağılımına dayanır 12 × 2X1~ B ı n ( n-1, θ1)X2~ B ı n ( n-2, θ2)θ1= θ2X1 . Bu dağılım, bilinmeyen bir parametresi olan hipergeometrik bir dağılımdır: oran oranı ψ = θ 1X1+ X2 ve sonra sıfır hipoteziψ=1'dir.ψ = θ11 - θ1θ21 - θ2ψ = 1
Bu dağıtımın Wikipedia sayfası var .
R ile değerlendirmek için, koşullu olasılığı tanımlayan formülü kullanabilirsiniz:
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
Veya paketin dnoncenhypergeom
işlevini kullanın MCMCpack
:
psi <- p1/(1-p1)/(p2/(1-p2)) # this is the odds ratio
MCMCpack::dnoncenhypergeom(x=x1, n1, n2, x1+x2, psi)
[1] 0.1818838