# Data sets
csv_games <- readRDS("csv_data.Rda")
db_games <- readRDS("db_data.Rda")

# Ranking functions
source("compute3PRanking.R")
source("computeELORanking.R")
source("fast3PRanking.R")

# Output / Visualization
source("formattedOutput.R")
source("rankingVisualisations.R")

csv_full_results <- computeELORanking(csv_games)
printStandings(csv_full_results[[2]], "csv_201819.txt")
printStandings(csv_full_results[[2]])

db_full_results <- computeELORanking(db_games)
printStandings(db_full_results[[2]], "db_201819.txt")
printStandings(db_full_results[[2]])

plotTopX(csv_full_results, 8)
plotTopX(db_full_results, 8)

# Season 2018/2019
s201819_start <- as.Date("2018-08-24")
s201819_end <- as.Date("2019-05-18")

csv_201819_results <- computeELORanking(subset(csv_games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga"),  k = 500, initialValue = 10000)
printStandings(csv_201819_results[[2]], "csv_201819.txt")
printStandings(csv_201819_results[[2]])

db_201819_results <- computeELORanking(subset(db_games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga"))
printStandings(db_201819_results[[2]], "db_201819.txt")
printStandings(db_201819_results[[2]])

plotTopX(csv_201819_results, 8)
plotTopX(db_201819_results, 8)