summary(elo.run(score(points.Home, points.Visitor) ~ team.Home + team.Visitor,
data = tournament, k = 20))
summary(elo.glm(score(points.Home, points.Visitor) ~ team.Home + team.Visitor,
data = tournament))
mc <- elo.markovchain(score(points.Home, points.Visitor) ~ team.Home + team.Visitor,
data = tournament, subset = points.Home != points.Visitor, k = 0.7)
summary(mc)
co <- elo.colley(score(points.Home, points.Visitor) ~ team.Home + team.Visitor,
data = tournament, subset = points.Home != points.Visitor)
summary(co)
wp <- elo.winpct(score(points.Home, points.Visitor) ~ team.Home + team.Visitor,
data = tournament, subset = points.Home != points.Visitor, k = 0.7)
summary(wp)
Run the code above in your browser using DataLab