前の記事のモデルを若干拡張して、勝敗データから将棋のプロ棋士の強さ(skill)を推定しました。 まず勝敗データとレーティングの値ですが、こちらのサイトを参考にさせていただきました。このようなデータを日々更新していくのには多大な努力と忍耐がないとできません。素晴らしいサイトです。 モデルのBUGSコードは以下のようになりました。 model{ for (i in 1:N.member) { skill[i, 1] <- skill.0[i] for (t in 2:N.year){ skill[i, t] <- skill[i, t-1] + beta[i] + r.skill[i, t-1] } } for (g in 1:N.game) { winner.p[g] ~ dnorm(skill[Winner[g], Year[g]], tau.k[Winner[g]]) loser.p[
![階層ベイズモデルで勝敗データからプロ棋士の強さを推定する - StatModeling Memorandum](https://cdn-ak-scissors.b.st-hatena.com/image/square/8798d8358d1a653da3597c066c1dd427aad8d852/height=288;version=1;width=512/http%3A%2F%2Fkasugano.sakura.ne.jp%2Fimages%2Fold%2Frating_vs_skill_201305s.png)