diff --git a/R/college.R b/R/college.R index b4cd76d..3191f7a 100644 --- a/R/college.R +++ b/R/college.R @@ -48,8 +48,8 @@ college_to_pro <- function(punts, power_five = TRUE) { dplyr::filter(YardsFromOwnEndZone <= 70) %>% dplyr::mutate(touchback = play_text %>% stringr::str_detect("ouchback")) %>% dplyr::mutate(return_yards = dplyr::if_else(touchback, 0, return_yards)) %>% - dplyr::mutate(NetYards = GrossYards - return_yards) %>% dplyr::mutate(GrossYards = dplyr::if_else(touchback, as.numeric(GrossYards-20), as.numeric(GrossYards))) %>% + dplyr::mutate(NetYards = GrossYards - return_yards) %>% dplyr::mutate(punt_out_of_bounds = play_text %>% stringr::str_detect("out.of.bounds")) %>% dplyr::mutate(punt_fair_catch = play_text %>% stringr::str_detect("air catch")) %>% dplyr::mutate(punt_downed = play_text %>% stringr::str_detect("downed")) %>%