library(nflfastR)
library(tidyverse)
library(ranger)
pbp <- load_pbp(2022)
pbp_pass <- pbp %>%
filter(pass == 1, !is.na(air_yards))
lm_air_yards <- lm(
air_yards ~ as.factor(down) + ydstogo + yardline_100,
data = pbp_pass
)
rf_air_yards <- ranger(
air_yards ~ down + ydstogo + yardline_100,
data = pbp_pass
)