在winbugs中的tapply对应物

Question

我需要计算每个州的平均值。在R中，我使用

完成了这项工作

tapply(y,state,mean)。

以下是一个例子：

state <- rbinom(10,4,0.6)
y <- rnorm(10)
tapply(y,x,mean)

其中y表示拟合值的向量，而state表示因变量，它是因子。

我想知道如何在Winbugs中做到这一点。对此有何想法？