#
# DATA PROCESSING
#

# Functions
getMatchesList <- function(first_team, second_team, football_data) {
  matches <- football_data %>%
    filter(home_team %in% c(first_team, second_team)
           & away_team %in% c(first_team, second_team))
  return(matches)
}

getBalance <- function(football_data) {
  balance <- football_data %>%
    count(winner, sort = TRUE)
  return(balance)
}

getBalancePercentage <- function(balance) {
  balancePerc <- balance %>%
    mutate(percentage = n/sum(.$n) * 100)
}