x[i] ~ dnorm(q[i], tau) q[i] <- (x[LeftRight[i, 1]] + x[LeftRight[i, 2]]) * wとしたときに
w
が 0.5 より小さい正の値であれば
(そんなにいろいろ調べたわけではないが),
まあだいたい同じような結果に収束する
w = 0.49
など 0.5 に近づけていくと,
徐々に収束が遅くなる
w = 0.5
は「臨界点」みたいな値で,
この値だと一気に収束が遅くなる
(あるいは永久に収束しない?)