R/split_LR.R

In bayesball/CalledStrike: Functions for Graphing Statcast Data

Defines functions split_LR

Documented in split_LR

split_LR <- function(sc){
  scnew <- split(sc, sc$p_throws)
  names(scnew) <- c("p_throws: L",
                    "p_throws: R")
  scnew
}