n = 37
Öncelikle, @Glen_b'in söylediğine paralel olarak, bir bayesyen, ölmenin tamamen adil olup olmadığıyla ilgilenmiyor - değil. Onun umursadığı şey, yeterince yakın olup olmadığına , bağlamda "yeterince" ne olursa olsun, yani, her bir taraf için% 5'lik pay dahilinde.
p1p2p3p = ( p1, p2, p3)p1+ p2+ p3= 1α0= ( 1 , 1 , 1 )
X= ( X1, X2, X3)Xp = ( p1, p2, p3)α = ( x1+ 1 , x2+1 , x3+ 1 )
p
Neyse, işte (R ile):
İlk önce biraz veri al. Kalıbı 500 kez yuvarlıyoruz.
set.seed(1)
y <- rmultinom(1, size = 500, prob = c(1,1,1))
(Adil bir kalıpla başlıyoruz; pratikte bu veriler gözlenecekti.)
p
library(MCMCpack)
A <- MCmultinomdirichlet(y, alpha0 = c(1,1,1), mc = 5000)
plot(A)
summary(A)
Son olarak, posterior olasılığımızı (verileri gözlemledikten sonra) her bir koordinatta kalıbın 0.05'in içinde olduğunu tahmin edelim.
B <- as.matrix(A)
f <- function(x) all((x > 0.28)*(x < 0.38))
mean(apply(B, MARGIN = 1, FUN = f))
Sonuç benim makinemde yaklaşık 0.9486. (Sürpriz değil, gerçekten. Ne de olsa adil bir kalıpla başladık.)
Kısa açıklama: Bu örnekte önceden bilgilendirici olmayan bir kişi kullanmamız bizim için mantıklı değil. Muhtemelen bir soru olduğu için, kalıp ilk etapta yaklaşık olarak dengeli görünmektedir, bu nedenle tüm koordinatlarda 1/3 seviyesine daha yakın olan bir öncelik seçmek daha iyi olabilir. Bunun üzerinde tahmin edilen posterior olasılığımızı “fuara yakın” hale getirebilirdik.