trn <- tournament(c("A", "B", "C", "D")) |>
round_robin("groups")
# Enter some results
m <- matches(trn, "groups")
trn <- result(trn, "groups", m$match_id[1], score = c(2, 1))
# View current standings
standings(trn, "groups")
Run the code above in your browser using DataLab