Skip to contents

Details

Calculate Team-level Consistency

  team_consistency(year=2015)

  fips_plus(df)

Label Statcast data as imputed

  statcast_df <- scrape_statcast_savant("2017-05-01", "2017-05-02")
  sc_df <- label_statcast_imputed_data(statcast_df)
  mean(sc_df$imputed)

  df <- statcast_search(start_date = "2016-04-06", end_date = "2016-04-15",
                        playerid = 621043, player_type = 'batter')
  run_expectancy_code(df, level = "plate appearances")

Generate linear weight values for events using Baseball Savant data

  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")
  linear_weights_savant(df, level = "plate appearance")