RのPlayerRatingsパッケージを使ってテニス選手のレーティングを求める - Qiitalibrary(ggplot2) ggplot(data=data.frame(X=c(-800,800)), aes(x=X)) + stat_function(fun=function(x) 1/(1+10^(-x/400))) + scale_x_continuous(breaks=seq(-800,800,by=200)) + xlab("AさんとBさんのレーティング差") + ylab("Aさんの勝率[%]") このように、AさんのレーティングがBさんと比較して大きくなるほどAさんの期待される勝率は100%に近づいていきます。 対戦後のレーティング値 次に、どのようにレーティングが変化するかについてです。今回はレーティング2000のAさんとレーティング1800のBさんの対戦を考えます。Aさんの勝率は先ほどの式より約76%と求められます。 ここで、 1)Aが勝った場合 Aのレーティ
