data-raw/tournament.R

In eheinzen/elo: Ranking Teams by Elo Rating and Comparable Methods

set.seed(88)

all.teams <- c("Athletic Armadillos", "Blundering Baboons", "Cunning Cats", "Defense-less Dogs", "Elegant Emus",
               "Fabulous Frogs", "Gallivanting Gorillas", "Helpless Hyenas")
means <- c(18, 12, 17, 13, 16, 15.5, 14, 14.5)
names(means) <- all.teams

tournament <- expand.grid(team.Home = all.teams, team.Visitor = all.teams, stringsAsFactors = FALSE)
tournament <- tournament[tournament$team.Home != tournament$team.Visitor, ]

tournament$points.Home <- vapply(means[tournament$team.Home] + 3, stats::rpois, 0, n = 1)
tournament$points.Visitor <- vapply(means[tournament$team.Visitor], stats::rpois, 0, n = 1)

tournament$week <- 0
tournament$week[1] <- 1
for(i in 2:nrow(tournament))
{
  t1 <- tournament$team.Home[i]
  t2 <- tournament$team.Visitor[i]
  idx <- 1:(i-1)
  wks <- tournament$week[idx]
  tm1 <- tournament$team.Home[idx]
  tm2 <- tournament$team.Visitor[idx]

  tournament$week[i] <- min(setdiff(1:14, wks[tm1 %in% c(t1, t2) | tm2 %in% c(t1, t2)]))
}

tournament$half <- ifelse(tournament$week < 8, "First Half of Season", "Second Half of Season")
tournament <- tournament[order(tournament$week), ]
rownames(tournament) <- NULL
attr(tournament, "out.attrs") <- NULL

usethis::use_data(tournament)



library(tidyverse)
tournament.multiteam <- tournament %>%
  pivot_longer(c(-week, -half), names_pattern = "(.*)\\.(.*)", names_to = c(".value", "home.vis")) %>%
  arrange(week, home.vis, desc(points), team) %>%
  group_by(week, home.vis) %>%
  mutate(place = paste0("Place_", 1:n())) %>%
  ungroup() %>%
  select(-points) %>%
  pivot_wider(names_from = place, values_from = team) %>%
  select(-home.vis)
usethis::use_data(tournament.multiteam)