ในกรณีสมมติฐานการกระจายจะได้รับโดยอิสระทั้งสองตัวแปรสุ่มทวินามและtheta_2) สมมติฐานคือความเสมอภาค\แต่การทดสอบที่แน่นอนฟิชเชอร์คือการทดสอบเงื่อนไข: มันต้องอาศัยอยู่บนเงื่อนไขการจำหน่ายของรับX_1การแจกแจงนี้เป็นการแจกแจง hypergeometric พร้อมกับพารามิเตอร์ที่ไม่รู้จักหนึ่งตัว: อัตราต่อรองแล้ว สมมติฐานคือ 12×2X1∼Bin(n1,θ1)X2∼Bin(n2,θ2)θ1=θ2X1X1+X2ψ=θ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