Report Parameters

Create the Starting Bracket

if (params$start_point == "Xmax")
{
  Z <- drawMaxLikelihoodBracket(structureList, P)
} else if (params$start_point == "Ymax")
{
  Z <- drawMaxLikelihoodBracket(structureList, Th)
} else if (params$start_point == "Elite8")
{
  team_ind <- which(trans$TEAM == params$elite8_team)
  assertthat::assert_that(length(team_ind) > 0,
                          msg = paste0("Team ", params$elite8_team, " not found"))
  Z <- drawMaxLikelihoodBracket(structureList, P, team_ind)
} else
{
  stop(paste0("Algorithm Start Point ", params$start_point, " not recognized"))
}
checkBracket(structureList, Z)
Zscore <- scoreTruthSampleList(Z, X)

Genetic Algorithm

newZ <- geneticBracketSearch(Z, pRate, nchildren, ngenerations, TRUE, gen_method)
## 2021-05-16 02:20:47 
##  Generation 1 Poisson Rate 3 P(win) 0.1609 
##  Generation 2 Poisson Rate 2.949 P(win) 0.1609 
##  Generation 3 Poisson Rate 2.849 P(win) 0.1609 
##  Generation 4 Poisson Rate 2.705 P(win) 0.1609 
##  Generation 5 Poisson Rate 2.525 P(win) 0.1609 
##  Generation 6 Poisson Rate 2.319 P(win) 0.1609 
##  Generation 7 Poisson Rate 2.096 P(win) 0.1609 
##  Generation 8 Poisson Rate 1.868 P(win) 0.1609 
##  Generation 9 Poisson Rate 1.645 P(win) 0.1609 
##  Generation 10 Poisson Rate 1.434 P(win) 0.1609 
##  Generation 11 Poisson Rate 1.578 P(win) 0.1609 
##  Generation 12 Poisson Rate 1.336 P(win) 0.1648 
##  Generation 13 Poisson Rate 1.131 P(win) 0.1654 
##  Generation 14 Poisson Rate 0.964 P(win) 0.1654 
##  Generation 15 Poisson Rate 0.831 P(win) 0.1654 
##  Generation 16 Poisson Rate 0.73 P(win) 0.1654 
##  Generation 17 Poisson Rate 0.655 P(win) 0.1654 
##  Generation 18 Poisson Rate 0.601 P(win) 0.1654 
##  Generation 19 Poisson Rate 0.564 P(win) 0.1654 
##  Generation 20 Poisson Rate 0.539 P(win) 0.1654 
##  Generation 21 Poisson Rate 0.523 P(win) 0.1654 
##  Generation 22 Poisson Rate 0.513 P(win) 0.1654 
##  Generation 23 Poisson Rate 0.565 P(win) 0.1654 
##  Generation 24 Poisson Rate 0.621 P(win) 0.1654 
##  Generation 25 Poisson Rate 0.683 P(win) 0.1654 
##  Generation 26 Poisson Rate 0.751 P(win) 0.1654 
##  Generation 27 Poisson Rate 0.827 P(win) 0.1654 
##  Generation 28 Poisson Rate 0.909 P(win) 0.1654 
##  Generation 29 Poisson Rate 1 P(win) 0.1654 
##  Generation 30 Poisson Rate 1.1 P(win) 0.1654 
##  Generation 31 Poisson Rate 1.21 P(win) 0.1654 
##  Generation 32 Poisson Rate 1.331 P(win) 0.1654 
##  Generation 33 Poisson Rate 1.464 P(win) 0.1654 
##  Generation 34 Poisson Rate 1.611 P(win) 0.1654 
##  Generation 35 Poisson Rate 1.772 P(win) 0.1654 
##  Generation 36 Poisson Rate 1.949 P(win) 0.1654 
##  Generation 37 Poisson Rate 2.144 P(win) 0.1654 
##  Generation 38 Poisson Rate 2.358 P(win) 0.1654 
##  Generation 39 Poisson Rate 2.594 P(win) 0.1654 
##  Generation 40 Poisson Rate 2.854 P(win) 0.1654 
##  Generation 41 Poisson Rate 3.139 P(win) 0.1654 
##  Generation 42 Poisson Rate 3.453 P(win) 0.1654 
##  Generation 43 Poisson Rate 3.798 P(win) 0.1654 
##  Generation 44 Poisson Rate 4.178 P(win) 0.1654 
##  Generation 45 Poisson Rate 4.596 P(win) 0.1654 
##  Generation 46 Poisson Rate 5.055 P(win) 0.1654 
##  Generation 47 Poisson Rate 5.561 P(win) 0.1654 
##  Generation 48 Poisson Rate 6.117 P(win) 0.1654 
##  Generation 49 Poisson Rate 6.729 P(win) 0.1654 
##  Generation 50 Poisson Rate 7.401 P(win) 0.1654 
## 2021-05-16 03:09:01
dimnames(newZ$current_best) <- list(trans$TEAM, paste0("Round", 1:6))
write.csv(newZ$current_best, file = params$output_file)

Score Density

Bracket Fingerprint