diff --git a/data-raw/build_scramble_fix.R b/data-raw/build_scramble_fix.R index 4baade8f..3ffa40ab 100644 --- a/data-raw/build_scramble_fix.R +++ b/data-raw/build_scramble_fix.R @@ -50,8 +50,6 @@ dat <- bind_rows( select(-date_time) %>% mutate_at(vars(home_team, away_team, posteam), nflfastR:::team_name_fn) -# 1999: need to join on yards_gained ? - d <- dat %>% dplyr::left_join( pbp, @@ -60,8 +58,6 @@ d <- dat %>% mutate(scramble_id = paste0(game_id, "_", play_id)) %>% filter(scramble_id != "2005_09_CIN_BAL_1725") - - # number non-matched by season nrow(d) d |> filter(is.na(desc)) |> group_by(season) |> summarise(n = n())