library(pracma) # Data sets csv_games <- readRDS("csv_data.Rda") db_games <- readRDS("db_data.Rda") # Ranking functions source("3PRanking.R") # Output / Visualization source("output.R") source("visualisations.R") # Complete results tic() csv_full_results <- compute3PRanking(csv_games) toc() tic() csv_full_results2 <- fast3PRanking(csv_games) toc() printStandings(csv_full_results[[2]], "csv_standings.txt") db_full_results <- compute3PRanking(db_games) printStandings(db_full_results[[2]], "db_standings.txt") 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") tic() csv_201819_results <- compute3PRanking(subset(csv_games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga")) toc() tic() csv_201819_results2 <- fast3PRanking(subset(csv_games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga")) toc() table(csv_201819_results[[1]] == csv_201819_results2[[1]]) # check methods table(csv_201819_results[[2]] == csv_201819_results2[[2]]) # check methods printStandings(csv_201819_results[[2]], "csv_201819.txt") db_201819_results <- compute3PRanking(subset(db_games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga")) printStandings(db_201819_results[[2]], "db_201819.txt") plotTopX(csv_201819_results, 8) plotTopX(csv_201819_results2, 8) plotTopX(db_201819_results, 8)