Question

我在winbugs中遇到了这个代码的问题。该模型是正确的，并且数据被加载，但是当我编译时，软件输出是＆＃34;节点Z＆＃34;的多个定义。我不知道如何解决问题。

这是模型：

#BUGS Model
model {
for (i in 1:n){
  for (j in 1:p){
    Y[i , j] ~ dcat ( prob [i , j , 1: M[j]])
    B <- sum(alpha[j])  
  } 
  theta [i] ~ dnorm (0.0 , 1.0)
}
for (i in 1:n){
  for (j in 1:p){
    for (k in 1:M[j]){
      Z <- sum(delta [k ])
      eta [i , j , k] <- 1.7* alpha [j] * (B * (theta [i] - beta [j] ) + Z)
      exp.eta[i , j , k] <- exp( eta[i , j , k])
      psum[ i , j , k] <- sum(eta[i , j , 1:k])
      prob[i , j , k] <- exp.eta[i , j , k] / psum[i , j , 1:M[j]]
    }
  }
}
for (j in 1:p){
  alpha [j] ~ dnorm (0 , pr.alpha) I(0 , )
  for (k in 2:M[j]){
    delta [k] ~ dnorm (0.0 , 1.0)
  }
  for (k in 1:M[j]){
    beta [j] ~ dnorm (0 , pr.beta )
  }
}
delta [1] <- 0.0
pr.alpha <- pow(1 , -2)
pr.beta <- pow(1, -2)
}

#data
list(n=10, p=8)

M[] M[] M[] M[] M[] M[] M[] M[]
2 2 4 2 2 3 4 2 
2 1 1 2 1 2 2 3
1 2 1 3 1 1 4 4
2 1 1 2 1 1 2 4 
3 4 4 3 3 3 1 1 
4 3 4 4 4 4 4 4 
1 1 2 2 1 2 4 4 
2 1 1 3 1 4 2 4 
3 4 1 1 1 2 2 2 
2 2 2 1 4 4 4 4 
END

感谢大家回答。

Answer 1

你的问题在于在BUGS循环中多次定义一些节点。例如，B在第一个i和j循环中定义了n次。 BUGS不允许这样做。您无法覆盖节点值。你需要

1）向B，Z，delta[k]和beta[j]添加一些索引，以使BUGS能够在循环期间将模拟值存储在节点的元素中。例如，将B替换为B[i,j]，将Z替换为Z[i,j,k]

或

2）将B，Z，delta[k]和beta[j]移动到仅涵盖已有索引的循环。即B，Z不在循环中，因为它们没有索引，delta[k]仅在for(k in 1:...)循环中。

决定取决于您对模型的想法以及您想要存储的参数。

节点winbugs的多个定义

1 个答案: