Displaying 1 result from an estimated 1 matches for "all_plays".
Did you mean:
all_flags
2020 Oct 08
0
Retrosheet Data
...rt?s code to extract baseball data from Retrosheet.
function(team){
P <- getRetrosheet("play",2013,team)
get_plays <- function(j) data.frame(Game=P[[j]]$id[1],P[[j]]$play)#from $id and $play section of retrosheet data
do.call("rbind",lapply(1:length(P),get_plays))
}
all_plays <- do.call("rbind",lapply(Teams[1:30],get_team_plays))
head(all_plays,10)
I get the following six variables from the play section of the retrosheet data:
head(all_plays,10)
Game inning team retroID count pitches play
1 TEX201304050 1 0...