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

k <- 30

source("fastELO.R")
source("formattedOutput.R")

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

bl201819 <- subset(csv_games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga")

last_elosranking <- fastELO(bl201819, k)

printStandings(last_elosranking)

for (i in 2:100)
{
  eloranking <- fastELO(bl201819, k=k, elos=last_elosranking)
  error <- sqrt(mean((last_elosranking-eloranking)^2))
  print(paste0("Iteration: ", i, " Error: ", error))
  last_elosranking <- eloranking
}

printStandings(last_elosranking)

eloranking <- fastELO(csv_games, elos=last_elosranking)

printStandings(last_elosranking)