In pbulsink/HockeyModel: NHL Hockey Model for 2018-2019

library(HockeyModel)
games<-HockeyModel::schedule
games<-games[games$Date == as.Date("2019-11-01"), ]
if(nrow(games) == 0){
  knitr::knit_exit(fully = FALSE)
}

A list of today's games are shown here:

HockeyModel::daily_odds_table(today=as.Date("2019-11-01"))

Including draws, the outcomes today's teams are:

HockeyModel::plot_odds_today(today=as.Date("2019-11-01"))

The expected goals plots for today's games:

for(g in 1:nrow(games)){
  home<-as.character(games[g,"HomeTeam"])
  away<-as.character(games[g,"AwayTeam"])
  p<-HockeyModel::plot_game(home = home, away = away)
  print(p)
}