Fix 60 yard fg bug

Author: mrcaseb

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: nflfastR
 Title: Functions to Efficiently Access NFL Play by Play Data
-Version: 5.1.0.9002
+Version: 5.1.0.9003
 Authors@R: 
     c(person(given = "Sebastian",
              family = "Carl",
@@ -70,6 +70,6 @@ Suggests:
     testthat (>= 3.0.0)
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Roxygen: list(markdown = TRUE)
 Config/testthat/edition: 3

NEWS.md

@@ -3,6 +3,7 @@
 - Bump required fastrmodels version to 2.0 for better compatibility with xgboost.
 - Fixed an issue with duplicated play IDs in some 2000 games. (#521)
 - Added the argument `pbp` to `calculate_stats()` to allow stats calculation based on subsets of nflverse play-by-play data. (#524)
+- Fixed a bug where `calculate_stats()` didn't count 60 yard field goal attempts in `"fg_made_60_"` and `"fg_missed_60_"`. (#531)
 
 # nflfastR 5.1.0
 

R/calculate_stats.R

@@ -366,13 +366,13 @@ calculate_stats <- function(seasons = nflreadr::most_recent_season(),
       fg_made_30_39 = sum((stat_id == 70) * (yards %between% c(30, 39))),
       fg_made_40_49 = sum((stat_id == 70) * (yards %between% c(40, 49))),
       fg_made_50_59 = sum((stat_id == 70) * (yards %between% c(50, 59))),
-      fg_made_60_ =   sum((stat_id == 70) * (yards > 60)),
+      fg_made_60_ =   sum((stat_id == 70) * (yards >= 60)),
       fg_missed_0_19 =  sum((stat_id == 69) * (yards %between% c(0, 19))),
       fg_missed_20_29 = sum((stat_id == 69) * (yards %between% c(20, 29))),
       fg_missed_30_39 = sum((stat_id == 69) * (yards %between% c(30, 39))),
       fg_missed_40_49 = sum((stat_id == 69) * (yards %between% c(40, 49))),
       fg_missed_50_59 = sum((stat_id == 69) * (yards %between% c(50, 59))),
-      fg_missed_60_ =   sum((stat_id == 69) * (yards > 60)),
+      fg_missed_60_ =   sum((stat_id == 69) * (yards >= 60)),
       fg_made_list =    fg_list(stat_id, yards, collapse_id = 70),
       fg_missed_list =  fg_list(stat_id, yards, collapse_id = 69),
       fg_blocked_list = fg_list(stat_id, yards, collapse_id = 71),