#This can reproduce data(pitches), but it takes a while...
## Not run:
# data <- scrape(start="2011-01-01", end="2011-12-31")
# names <- c("Mariano Rivera", "Phil Hughes")
# atbats <- subset(data$atbat, pitcher_name %in% names)
# pitchFX <- plyr::join(atbats, data$pitch, by=c("num", "url"), type="inner")
# pitches <- subset(pitchFX, pitch_type %in% c("FF", "FC"))
# ## End(Not run)
Run the code above in your browser using DataLab