if (FALSE) {
# Return coaches votes for a particular match, then find the possibilities
df <- fetch_coaches_votes(comp = "AFLM", season = 2021, round = 24, team = "Western Bulldogs")
calculate_coaches_vote_possibilities(df, "Coach View")
df <- fetch_coaches_votes(comp = "AFLW", season = 2021, round = 9, team = "Western Bulldogs")
calculate_coaches_vote_possibilities(df, "Player View")
# Create a manual data frame to calculate possibilities
df <- data.frame(
Player.Name = c(
"Tom Liberatore", "Jack Macrae",
"Marcus Bontempelli", "Cody Weightman",
"Darcy Parish", "Aaron Naughton", "Jordan Ridley"
),
Coaches.Votes = c(7, 6, 5, 5, 4, 2, 1)
)
calculate_coaches_vote_possibilities(df, "Player View")
}
Run the code above in your browser using DataLab