Uji Barnard digunakan ketika parameter gangguan tidak diketahui berdasarkan hipotesis nol.
Namun dalam tes pencicipan wanita Anda dapat berargumen bahwa parameter gangguan dapat ditetapkan pada 0,5 di bawah hipotesis nol (wanita yang tidak diberi informasi memiliki kemungkinan 50% untuk menebak dengan benar gelas).
Kemudian jumlah tebakan yang benar, di bawah hipotesis nol, menjadi distribusi binomial: menebak 8 cangkir dengan probabilitas 50% untuk setiap cangkir.
Dalam kesempatan lain, Anda mungkin tidak memiliki probabilitas sepele 50% untuk hipotesis nol. Dan tanpa margin tetap, Anda mungkin tidak tahu probabilitas apa yang seharusnya. Dalam hal ini Anda memerlukan tes Barnard.
Bahkan jika Anda akan melakukan tes Barnard pada tes mencicipi teh wanita, itu akan menjadi 50% pula (jika hasilnya semua tebakan yang benar) karena parameter gangguan dengan nilai-p tertinggi adalah 0,5 dan akan menghasilkan tes binomial sepele ( sebenarnya adalah kombinasi dari dua tes binomial satu untuk empat cangkir pertama susu dan satu untuk empat cangkir pertama teh).
> library(Barnard)
> barnard.test(4,0,0,4)
Barnard's Unconditional Test
Treatment I Treatment II
Outcome I 4 0
Outcome II 0 4
Null hypothesis: Treatments have no effect on the outcomes
Score statistic = -2.82843
Nuisance parameter = 0.5 (One sided), 0.5 (Two sided)
P-value = 0.00390625 (One sided), 0.0078125 (Two sided)
> dbinom(8,8,0.5)
[1] 0.00390625
> dbinom(4,4,0.5)^2
[1] 0.00390625
Di bawah ini adalah bagaimana hasilnya akan lebih rumit (jika tidak semua tebakan benar misalnya 2 banding 4), maka penghitungan apa yang ada dan apa yang tidak ekstrem menjadi sedikit lebih sulit.
(Perhatikan juga bahwa tes Barnard menggunakan, dalam kasus hasil 4-2 parameter gangguan p = 0,686 yang Anda dapat berargumentasi tidak benar, nilai p untuk probabilitas 50% menjawab 'teh pertama' adalah 0,08203125. Ini menjadi lebih kecil ketika Anda mempertimbangkan wilayah yang berbeda, alih-alih yang didasarkan pada statistik Wald, meskipun mendefinisikan wilayah itu tidak begitu mudah )
out <- rep(0,1000)
for (k in 1:1000) {
p <- k/1000
ps <- matrix(rep(0,25),5) # probability for outcome i,j
ts <- matrix(rep(0,25),5) # distance of outcome i,j (using wald statistic)
for (i in 0:4) {
for (j in 0:4) {
ps[i+1,j+1] <- dbinom(i,4,p)*dbinom(j,4,p)
pt <- (i+j)/8
p1 <- i/4
p2 <- j/4
ts[i+1,j+1] <- (p2-p1)/sqrt(pt*(1-pt)*(0.25+0.25))
}
}
cases <- ts < ts[2+1,4+1]
cases[1,1] = TRUE
cases[5,5] = TRUE
ps
out[k] <- 1-sum(ps[cases])
}
> max(out)
[1] 0.08926748
> barnard.test(4,2,0,2)
Barnard's Unconditional Test
Treatment I Treatment II
Outcome I 4 2
Outcome II 0 2
Null hypothesis: Treatments have no effect on the outcomes
Score statistic = -1.63299
Nuisance parameter = 0.686 (One sided), 0.314 (Two sided)
P-value = 0.0892675 (One sided), 0.178535 (Two sided)