# \donttest{
df <- statcast_search(start_date = "2016-04-06", end_date = "2016-04-15",
playerid = 621043, player_type = 'batter')
df <- run_expectancy_code(df, level = "plate appearances")
try(linear_weights_savant(df, level = "plate appearance"))
# }
Run the code above in your browser using DataLab