No, su cálculo no es correcto porque:
una) b1 y b3 probablemente están correlacionados en la distribución posterior, y
b) incluso si no lo fueran, no es así como lo calcularía (piense en la ley de los grandes números).
Pero no temas, hay una manera realmente fácil de hacer esto en WinBUGS. Simplemente defina una nueva variable:
b1b3 <- b1 + b3
y monitorear sus valores.
EDITAR:
Para una mejor explicación de mi primer punto, supongamos que la parte posterior tiene una distribución normal multivariada conjunta (no lo hará en este caso, pero sirve como una ilustración útil). Entonces el parámetrobi tiene distribución N(μi,σ2i), y entonces el intervalo de 95% creíble es (μi−1.96σi,μi+1.96σi) - tenga en cuenta que esto solo depende de la media y la varianza.
Ahora b1+b3 tendrá distribución N(μ1+μ3,σ21+2ρ13σ1σ3+σ23). Tenga en cuenta que el término de varianza (y, por lo tanto, el intervalo creíble del 95%) implica el término de correlaciónρ13 que no se puede encontrar en los intervalos de b1 o b3.
(Mi punto sobre la ley de los grandes números era solo que las desviaciones estándar de la suma de 2 variables aleatorias independientes es menor que la suma de las desviaciones estándar).
En cuanto a cómo implementarlo en WinBUGS, algo como esto es lo que tenía en mente:
model {
a ~ dXXXX
b1 ~ dXXXX
b2 ~ dXXXX
b3 ~ dXXXX
b1b3 <- b1 + b3
for (i in 1:N) {
logit(p[i]) <- a + b1*x[i] + b2*w[i] + b3*x[i]*w[i]
y[i] ~ dbern(p[i])
}
}
En cada paso de la muestra, el nodo b1b3
se actualizará desde b1
y b3
. No necesita un previo ya que es solo una función determinista de otros dos nodos.