4 different teams in moneyline for multiple games

[SCasanova]

There seems to be a mistake with the moneyline (and possibly other markets) in 2015_20_ARI_CAR, 2015_18_PIT_CIN, and 2012_10_TEN_MIA

reprex:

library(magrittr)
readRDS('~/Downloads/nfl_lines_odds.rds') %>%  
  dplyr::filter( game_id %in% c('2015_20_ARI_CAR', '2015_18_PIT_CIN', '2012_10_TEN_MIA') & market_type == 'money_line') %>% 
  dplyr::pull(abbr) %>% unique()
#>  [1] "BAL" "MIA" "TEN" "OAK" "PIT" "CIN" "MIN" "SEA" "NE"  "DEN" "CAR" "ARI"

^{Created on 2021-08-16 by the reprex package (v2.0.1)}

[mrcaseb]

Hm. This seems to be a bug in the underlying data. Here is the complete list of problematioc game_ids

library(dplyr)

nfl_lines_odds |> 
  select(game_id, abbr) |> 
  filter(!abbr %in% c("over", "under")) |> 
  distinct() |>
  count(game_id, abbr) |> 
  count(game_id) |> 
  filter(n>2, !is.na(game_id)) |> 
  pull(game_id)

#> [1] "2012_10_TEN_MIA" "2013_18_SD_CIN"  "2014_18_BAL_PIT" "2014_18_CIN_IND" "2015_18_PIT_CIN" "2015_20_ARI_CAR"