在替代假设下,正确猜数的分布遵循非中心超几何分布,该分布根据优势比进行参数化,也就是说,当女士在事实上,实际上是先添加茶,而不是先添加牛奶(或相反)。如果比值比为1,则得到中心超几何分布。
让我们看看这是否有效。我将使用R来进行说明,并使用该MCMCpack
软件包,该软件包具有dnoncenhypergeom()
计算(非中心)超几何分布的密度的功能。它有参数x
的正确数量的猜测(请注意:这是猜测的两个条件之一的,正确的数量,例如,当第一次被真正加入茶),参数n1
,n2
和m1
三四个利润率,并psi
为真实几率。x
当真几率是1时,让我们计算密度为0到4(所有边距等于4):
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
因此,在原假设下,女士有8个正确的猜测(即,她正确猜测所有4杯首先添加茶的位置,因此她也正确猜测所有4杯所有牛奶的位置)的概率为1.43%。实际上,这是Fisher认为足以拒绝原假设的证据量。
问题中指定的概率可用于计算比值比,即(即)。现在,这位女士有什么机会正确猜出所有8杯(即,她将正确猜出所有4杯在先添加茶的位置,因此也猜对所有4杯在正确添加牛奶的位置)?赔率(猜A |真A )/赔率(猜A |真B )(.90/(1−.90))/(.10/(1−.10))=81odds(guessA|trueA)/odds(guessA|trueB)
dnoncenhypergeom(4, n1=4, n2=4, m1=4, psi=81)
这样产生:
[1] 0.8312221
因此,功率约为83%。