32 lines
685 B
R
32 lines
685 B
R
#
|
|
# DATA PROCESSING
|
|
#
|
|
|
|
# Get matches
|
|
getMatchesList <- function(matchesData, first_team, second_team) {
|
|
return(
|
|
matchesData %>%
|
|
filter(home_team %in% c(first_team, second_team)
|
|
& away_team %in% c(first_team, second_team))
|
|
)
|
|
}
|
|
|
|
# Mathes filters
|
|
filterByDate <- function(matchesData, dateFrom, dateTo) {
|
|
return(
|
|
matchesData %>%
|
|
filter(as_date(date) >= dateFrom & as_date(date) <= dateTo)
|
|
)
|
|
}
|
|
|
|
# Get balance
|
|
getBalance <- function(football_data) {
|
|
balance <- football_data %>%
|
|
count(winner, sort = TRUE)
|
|
return(balance)
|
|
}
|
|
|
|
getBalancePercentage <- function(balance) {
|
|
balancePerc <- balance %>%
|
|
mutate(percentage = n/sum(.$n) * 100)
|
|
} |