R/strikes.R

In bayesball/PitchSequence: Pitch Sequence Calculations

Defines functions strikes

Documented in strikes

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