Predict rating model
# S3 method for class 'rating'
predict(object, newdata, ...)probabilities of winning challenge by player over his opponent in all provided events.
glicko <- glicko_run(
data = gpheats[1:16, ],
formula = rank | id ~ player(rider)
)
predict(glicko, gpheats[17:20, ])
#> id rider opponent Y P
#> <int> <char> <char> <num> <num>
#> 1: 5 Andy Smith Craig Boyce 0.0 0.1668957
#> 2: 5 Andy Smith Sam Ermolenko 0.0 0.1668957
#> 3: 5 Andy Smith Tomasz Gollob 0.0 0.3091930
#> 4: 5 Craig Boyce Andy Smith 1.0 0.8331043
#> 5: 5 Craig Boyce Sam Ermolenko 0.5 0.5000000
#> 6: 5 Craig Boyce Tomasz Gollob 1.0 0.6908070
#> 7: 5 Sam Ermolenko Andy Smith 1.0 0.8331043
#> 8: 5 Sam Ermolenko Craig Boyce 0.5 0.5000000
#> 9: 5 Sam Ermolenko Tomasz Gollob 1.0 0.6908070
#> 10: 5 Tomasz Gollob Andy Smith 1.0 0.6908070
#> 11: 5 Tomasz Gollob Craig Boyce 0.0 0.3091930
#> 12: 5 Tomasz Gollob Sam Ermolenko 0.0 0.3091930