R/contact_gam_fit.R

In bayesball/CalledStrike: Functions for Graphing Statcast Data

Defines functions contact_gam_fit

Documented in contact_gam_fit

contact_gam_fit <- function(d){
  gam(Contact ~ s(plate_x, plate_z),
      family=binomial,
      data=d)
}