การกระจายของจำนวนที่ถูกต้องของการเดาภายใต้สมมติฐานทางเลือกดังต่อไปนี้การกระจาย hypergeometric ที่ไม่ได้อยู่ตรงกลางซึ่งเป็นพารามิเตอร์ในแง่ของอัตราส่วนอัตราต่อรองนั่นคืออัตราเดิมพันที่ผู้หญิงจะเดาว่า "ชาก่อน" สูงขึ้นเท่าใด ความเป็นจริงชาถูกเพิ่มเข้ามาก่อนเป็นอย่างมากเมื่อเทียบกับเมื่อในความเป็นจริงนมถูกเพิ่มก่อน (หรือวิธีอื่น ๆ ) หากอัตราส่วนอัตราต่อรองเป็น 1 เราจะได้การแจกแจงไฮเพอร์ยีเมตริกกลาง
มาดูกันว่ามันใช้งานได้ไหม ฉันจะใช้ R เพื่อจุดประสงค์ภาพประกอบโดยใช้MCMCpack
แพคเกจซึ่งมีฟังก์ชั่นdnoncenhypergeom()
สำหรับคำนวณความหนาแน่นของการแจกแจงไฮเพอร์เมตริก (ไม่ใช่กลาง) แต่ก็มีข้อโต้แย้งx
สำหรับจำนวนที่ถูกต้องของการคาดเดา (ข้อควรระวัง: นี่คือหมายเลขที่ถูกต้องของการคาดเดาภายใต้หนึ่งของทั้งสองเงื่อนไขเช่นเมื่อชาถูกเพิ่มเข้ามาจริงๆแรก) ข้อโต้แย้งn1
, n2
และm1
สามในสี่ของอัตรากำไรขั้นต้นและpsi
สำหรับ อัตราส่วนอัตราต่อรองที่แท้จริง ลองคำนวณความหนาแน่นx
เท่ากับ 0 ถึง 4 (ด้วยระยะขอบทั้งหมดเท่ากับ 4) เมื่ออัตราส่วนอัตราต่อรองที่แท้จริงคือ 1:
install.packages("MCMCpack")
library(MCMCpack)
sapply(0:4, function(x) dnoncenhypergeom(x, n1=4, n2=4, m1=4, psi=1))
อัตราผลตอบแทนนี้:
[1] 0.01428571 0.22857143 0.51428571 0.22857143 0.01428571
ดังนั้นจึงมีโอกาส 1.43% ที่ผู้หญิงจะทำการเดาได้ถูกต้อง 8 ครั้ง (นั่นคือเธอเดาได้ทั้งหมด 4 ถ้วยอย่างถูกต้องเมื่อเติมชาก่อนและด้วยเหตุนี้เธอจึงเดาได้ทั้งหมด 4 ถ้วยอย่างถูกต้องเมื่อใส่นมก่อน) ภายใต้สมมติฐานว่าง นี่คือจำนวนหลักฐานที่ฟิชเชอร์พิจารณาแล้วว่าเพียงพอที่จะปฏิเสธสมมติฐานว่าง
ความน่าจะเป็นที่ระบุในคำถามสามารถใช้คำนวณอัตราต่อรองได้คือ (.90/(1−.90))/(.10/(1−.10))=81 (เช่น odds(guessA|trueA)/odds(guessA|trueB)) ตอนนี้โอกาสที่ผู้หญิงจะเดาได้ทั้งหมด 8 ถ้วยอย่างถูกต้อง (เช่นเธอจะเดาได้ทั้งหมด 4 ถ้วยอย่างถูกต้องที่มีการเพิ่มชาก่อนและด้วยเหตุนี้ 4 ถ้วยอย่างถูกต้องที่มีการเพิ่มนมก่อน)
dnoncenhypergeom(4, n1=4, n2=4, m1=4, psi=81)
อัตราผลตอบแทนนี้:
[1] 0.8312221
ดังนั้นพลังงานจึงอยู่ที่ประมาณ 83%