R scripts to determine whether a starting pitcher "pitches to the score"