Não, seu cálculo não está correto, porque:
a) e provavelmente estão correlacionados na distribuição posterior, eb1b3
b) mesmo que não fossem, não é assim que você calcularia (pense na lei dos grandes números).
Mas não tenha medo, existe uma maneira muito fácil de fazer isso no WinBUGS. Basta definir uma nova variável:
b1b3 <- b1 + b3
e monitorar seus valores.
EDITAR:
Para uma melhor explicação do meu primeiro ponto, suponha que o posterior tenha uma distribuição normal multivariada conjunta (não terá neste caso, mas serve como uma ilustração útil). Então o parâmetro tem distribuição e, portanto, o intervalo de 95% credível é - observe que isso depende apenas da média e variação.bEuN(μEu,σ2Eu)(μEu- 1,96σEu,μEu+ 1,96σEu)
Agora terá distribuição . Observe que o termo de variação (e, portanto, o intervalo confiável de 95%) envolve o termo de correlação que não pode ser encontrado nos intervalos de ou .b1+b3N(μ1+μ3,σ21+ 2ρ13σ1σ3+σ23)ρ13b1b3
(Meu argumento sobre a lei dos grandes números foi justamente que os desvios padrão da soma de 2 variáveis aleatórias independentes são menores que a soma dos desvios padrão.)
Quanto à forma de implementá-lo no WinBUGS, algo como isto é o que eu tinha em 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])
}
}
Em cada etapa do amostrador, o nó b1b3
será atualizado de b1
e b3
. Ele não precisa de um prior, pois é apenas uma função determinística de dois outros nós.