source("eigenvalueRanking.R") source("formattedOutput.R") source("defines.R") games <- readRDS("db_data.Rda") s201819_start <- as.Date("2018-08-24") s201819_end <- as.Date("2019-05-18") # ----- A3.1 ----- A <- generateA(subset(games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga")) eigenvalueRanking <- powerMethod(A) # Scores s <- A%*%eigenvalueRanking/34 s <- s[,1] printStandings(s) # Rankings eigenvalueRanking <- eigenvalueRanking[order(-eigenvalueRanking),] printStandings(eigenvalueRanking) # ----- A3.2 ----- A2 <- generateA(subset(games, Date >= s201819_start & Date <= s201819_end & League == "Bundesliga"), type = 2) eigenvalueRanking2 <- powerMethod(A2) # Scores s <- A%*%eigenvalueRanking2/34 s <- s[,1] printStandings(s) # Rankings eigenvalueRanking2 <- eigenvalueRanking2[order(-eigenvalueRanking2),] printStandings(eigenvalueRanking2)