Esto será más una pregunta para @ Xi'an que una respuesta.
Iba a responder que una varianza posterior
con la cantidad de intentos, la cantidad de éxitos y los coeficientes de la beta anterior, excediendo la varianza anterior
también es posible en el modelo binomial basado en el siguiente ejemplo, en el que la probabilidad y los anteriores están en marcado contraste, de modo que el posterior está "demasiado lejos en el medio". Parece contradecir la cita de Gelman.nkα0,β0V(θ)=α 0 β0
V( θ | y) = α1β1( α1+ β1)2( α1+ β1+ 1 )= ( α0 0+ k ) ( n - k + β0 0)( α0 0+ n + β0 0)2( α0 0+ n + β0 0+ 1 ),
nortekα0 0, β0 0V( θ ) = α0 0β0 0( α0 0+ β0 0)2( α0 0+ β0 0+ 1 )
n <- 10
k <- 1
alpha0 <- 100
beta0 <- 20
theta <- seq(0.01,0.99,by=0.005)
likelihood <- theta^k*(1-theta)^(n-k)
prior <- function(theta,alpha0,beta0) return(dbeta(theta,alpha0,beta0))
posterior <- dbeta(theta,alpha0+k,beta0+n-k)
plot(theta,likelihood,type="l",ylab="density",col="lightblue",lwd=2)
likelihood_scaled <- dbeta(theta,k+1,n-k+1)
plot(theta,likelihood_scaled,type="l",ylim=c(0,max(c(likelihood_scaled,posterior,prior(theta,alpha0,beta0)))),ylab="density",col="lightblue",lwd=2)
lines(theta,prior(theta,alpha0,beta0),lty=2,col="gold",lwd=2)
lines(theta,posterior,lty=3,col="darkgreen",lwd=2)
legend("top",c("Likelihood","Prior","Posterior"),lty=c(1,2,3),lwd=2,col=c("lightblue","gold","darkgreen"))
> (postvariance <- (alpha0+k)*(n-k+beta0)/((alpha0+n+beta0)^2*(alpha0+n+beta0+1)))
[1] 0.001323005
> (priorvariance <- (alpha0*beta0)/((alpha0+beta0)^2*(alpha0+beta0+1)))
[1] 0.001147842
Por lo tanto, este ejemplo sugiere una mayor varianza posterior en el modelo binomial.
Por supuesto, esta no es la varianza posterior esperada. ¿Es ahí donde radica la discrepancia?
La cifra correspondiente es