Displaying 1 result from an estimated 1 matches for "getretrosheet".
2020 Oct 08
0
Retrosheet Data
Have used Jim Albert?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_pla...