R/balls.R

In bayesball/PitchSequence: Pitch Sequence Calculations

Defines functions balls

Documented in balls

balls <- function(count){
  b <- function(ct){
    as.numeric(unlist(str_split(ct, "-"))[1])
  }
  sapply(count, b)
}