data(tournament)
t1 <- head(tournament, -3)
t2 <- tail(tournament, 3)
results <- elo.run(score(points.Home, points.Visitor) ~ team.Home + team.Visitor,
data = t1, k = 20)
predict(results)
predict(results, newdata = t2)
results <- elo.glm(score(points.Home, points.Visitor) ~ team.Home + team.Visitor, data = t1,
subset = points.Home != points.Visitor)
predict(results)
predict(results, newdata = t2)
results <- elo.markovchain(score(points.Home, points.Visitor) ~ team.Home + team.Visitor, data = t1,
subset = points.Home != points.Visitor, k = 0.7)
predict(results)
predict(results, newdata = t2)
results <- elo.colley(score(points.Home, points.Visitor) ~ team.Home + team.Visitor, data = t1,
subset = points.Home != points.Visitor)
predict(results)
predict(results, newdata = t2)
results <- elo.winpct(score(points.Home, points.Visitor) ~ team.Home + team.Visitor, data = t1,
subset = points.Home != points.Visitor, k = 0.7)
predict(results)
predict(results, newdata = t2)
Run the code above in your browser using DataLab