US Presidential Election data 2016.
USA_Election_2016
A data.frame with 5 variables:
EnteredDateTime
Time of the wager line in UTC
TeamName1
Team name of the Away Team
TeamName2
Team name of the Home Team
MoneyUS1
Moneyline US odds for Away Team
MoneyUS2
Moneyline US odds for Home Team
All lines from Pinnacle for the 2016 US Presidential Election
if (require("odds.converter")) {
library(tidyverse)
# What is Hilary Clinton's the highest implied winning probability at Pinnacle?
USA_Election_2016[which.min(USA_Election_2016$MoneyUS1),"EnteredDateTime"]
odds.converter::odds.us2prob(min(USA_Election_2016$MoneyUS1))
}
# What time on election night that Trump's implied winning probability surpassed Clinton's?
if (require("tidyverse")) {
library(tidyverse)
USA_Election_2016 %>%
filter(MoneyUS1>MoneyUS2) %>%
slice(1)
}
Run the code above in your browser using DataLab