Phân phối số lần đoán chính xác theo giả thuyết thay thế tuân theo phân phối siêu bội không trung tâm , được tham số hóa theo tỷ lệ chênh lệch, nghĩa là tỷ lệ cược mà người phụ nữ sẽ đoán "trà trước" cao hơn bao nhiêu thực tế trà đã được thêm vào đầu tiên trái ngược với khi thực tế sữa được thêm vào trước (hoặc ngược lại). Nếu tỷ lệ cược là 1, thì chúng ta có được phân phối siêu bội trung tâm.
Hãy xem điều này có hiệu quả không. Tôi sẽ sử dụng R cho mục đích minh họa, sử dụng MCMCpack
gói có chức năng dnoncenhypergeom()
tính toán mật độ của phân bố siêu bội (không trung tâm). Nó có lập luận x
cho con số chính xác của dự đoán (cẩn thận: đây là con số chính xác của dự đoán theo một trong hai điều kiện, ví dụ, khi chè đã thực sự bổ sung đầu tiên), lập luận n1
, n2
và m1
cho ba trong bốn lề, và psi
cho tỷ lệ cược thực sự. Hãy tính mật độ x
bằng 0 đến 4 (với tất cả các lề bằng 4) khi tỷ lệ cược thực là 1:
install.packages("MCMCpack")
library(MCMCpack)
sapply(0:4, function(x) dnoncenhypergeom(x, n1=4, n2=4, m1=4, psi=1))
Sản lượng này:
[1] 0.01428571 0.22857143 0.51428571 0.22857143 0.01428571
Vì vậy, có 1,43% cơ hội người phụ nữ sẽ đưa ra 8 lần đoán đúng (nghĩa là cô ấy đoán đúng cả 4 cốc khi trà được thêm vào trước và do đó cô cũng đoán đúng cả 4 cốc khi sữa được thêm vào trước) theo giả thuyết null. Trên thực tế, đây là lượng bằng chứng mà Fisher coi là đủ để bác bỏ giả thuyết khống.
(.90/(1−.90))/(.10/(1−.10))=81odds(guessA|trueA)/odds(guessA|trueB)). Bây giờ cơ hội nào mà người phụ nữ sẽ đoán đúng tất cả 8 cốc (nghĩa là cô ấy sẽ đoán đúng cả 4 cốc, nơi trà được thêm vào trước và do đó cũng là 4 cốc chính xác khi sữa được thêm vào trước)?
dnoncenhypergeom(4, n1=4, n2=4, m1=4, psi=81)
Sản lượng này:
[1] 0.8312221
Vậy là sức mạnh khoảng 83% rồi.