No, tu cálculo no es correcto, porque:
a) b1 y b3 están probablemente correlacionadas en la distribución posterior, y
b) aunque no lo fueran, no es así como se calcularía (piensa en la ley de los grandes números).
Pero no temas, hay una manera muy fácil de hacer esto en WinBUGS. Sólo tienes que definir una nueva variable:
b1b3 <- b1 + b3
y controlar sus valores.
EDITAR:
Para una mejor explicación de mi primer punto, supongamos que la posterior tiene una distribución normal multivariante conjunta (no lo será en este caso, pero sirve como ilustración útil). Entonces el parámetro bi tiene distribución N(μi,σ2i) por lo que el intervalo de credibilidad del 95% es (μi−1.96σi,μi+1.96σi) - Obsérvese que esto sólo depende de la media y la varianza.
Ahora b1+b3 tendrá una distribución N(μ1+μ3,σ21+2ρ13σ1σ3+σ23) . Obsérvese que el término de varianza (y, por tanto, el intervalo de credibilidad del 95%) incluye el término de correlación ρ13 que no se puede encontrar a partir de los intervalos para b1 o b3 .
(Mi punto sobre la ley de los grandes números era sólo 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 así 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 del muestreador, el nodo b1b3
se actualizará de b1
y b3
. No necesita un previo ya que es sólo una función determinista de otros dos nodos.