में मामले वितरणात्मक धारणा दो स्वतंत्र द्विपद यादृच्छिक परिवर्तनीय द्वारा दिया जाता है एक्स 1 ~ बी मैं n ( n 1 , θ 1 ) और एक्स 2 ~ बी मैं n ( n 2 , θ 2 ) । अशक्त परिकल्पना समानता ull 1 = esis 2 है । लेकिन फिशर का सटीक परीक्षण एक सशर्त परीक्षण है: यह एक्स 1 दिए गए एक्स 1 के सशर्त वितरण पर निर्भर करता है2 × 2एक्स1~ बी मैं n ( n1, θ1)एक्स2~ बी मैं n ( n2, θ2)θ1= θ2एक्स1 । बाधाओं अनुपात: इस वितरण एक अज्ञात पैरामीटर के साथ एक hypergeometric वितरण है ψ = θ 1एक्स1+ X2 , और फिर शून्य परिकल्पना हैψ=1।ψ = θ11 - θ1θ21 - θ2ψ = 1
इस वितरण का अपना विकिपीडिया पृष्ठ है ।
R के साथ इसका मूल्यांकन करने के लिए, आप बस सशर्त संभाव्यता को परिभाषित करने वाले सूत्र का उपयोग कर सकते हैं:
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
या पैकेज के dnoncenhypergeom
कार्य का उपयोग करें 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