# Functions
get_winner_name <- function(match_row) {
  if(match_row["home_score"] > match_row["away_score"]) {
    return(match_row["home_team"])
  }
  else if(match_row["home_score"] < match_row["away_score"]) {
    return(match_row["away_team"])
  }
  else {
    return("Draw")
  }
}

# Load data
football_data <- as_tibble(read.csv("results.csv"))
football_data_ext <- football_data %>%
  select(2:5) %>% mutate(winner = apply(., 1, get_winner_name))

# Prepare data
home_teams <- football_data %>%
  select("home_team") %>% unique()

away_teams <- football_data %>%
  select("away_team") %>% unique()