implement fumble recoveries

(only defense)
nflverse · Jul 3, 2024 · f59b2e6 · f59b2e6
1 parent 59b2e1b
commit f59b2e6
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/calculate_stats.R b/R/calculate_stats.R
@@ -145,11 +145,11 @@ calculate_stats <- function(seasons = nflreadr::most_recent_season(),
       def_interception_yards = sum((stat_id %in% 25:28) * yards),
       def_pass_defended = sum(stat_id == 85),
       def_tds = sum((team_abbr == .data$def) & stat_id %in% td_ids()),
-      # def_fumbles = ,
-      # def_fumble_recovery_own = ,
-      # def_fumble_recovery_yards_own = ,
-      # def_fumble_recovery_opp = ,
-      # def_fumble_recovery_yards_opp = ,
+      def_fumbles = sum((team_abbr == .data$def) & stat_id %in% 52:54),
+      def_fumble_recovery_own = sum((team_abbr == .data$def) & stat_id %in% 55:56),
+      def_fumble_recovery_yards_own = sum((team_abbr == .data$def) & stat_id %in% 55:58),
+      def_fumble_recovery_opp = sum((team_abbr == .data$def) & stat_id %in% 59:60),
+      def_fumble_recovery_yards_opp = sum((team_abbr == .data$def) & stat_id %in% 59:62),
       # def_safety = ,
       # def_penalty = ,
       # def_penalty_yards = ,