# NOT RUN {
e <- elo.run(score(points.Home, points.Visitor) ~ team.Home + team.Visitor + group(week),
data = tournament, k = 20)
head(as.matrix(e))
str(as.data.frame(e))
final.elos(e)
# }
Run the code above in your browser using DataCamp Workspace