examples/pa_pred_display_details.R

In singlearity-sports/singlearity-R: R Package Client for Singlearity Baseball API

##########################################
# Show the input features used to form the prediction
##########################################

library(singlearity)
sing <- GetSinglearityClient()

#list of batters
batter_list = c('Mookie Betts')

#list of pitchers
pitcher_list = c('Chris Paddack')


#initialize empty lists
candidate_batters <- list()
candidate_pitchers <- list()

for (batter in batter_list)
{
  candidate_batters <- append(candidate_batters, sing$GetPlayers(name=batter))
}

for (pitcher in pitcher_list)
{
  candidate_pitchers <- append(candidate_pitchers, sing$GetPlayers(name=pitcher))
}


venue <- sing$GetVenues(stadium.name = 'Dodger Stadium')[[1]]
state <- State$new(on_1b = FALSE, on_2b = TRUE, on_3b = FALSE, pitch_number = 19, inning = 4, bat_score = 3, fld_score = 5, top = FALSE)
atmosphere <- Atmosphere$new(venue = venue, temperature = 70, home_team = sing$GetTeams(name = 'Dodgers')[[1]])


matchups <- list()
for (b in candidate_batters) 
{
  for (p in candidate_pitchers)
  {
    matchups <- append(matchups, Matchup$new(batter = b, pitcher = p, atmosphere = atmosphere, state = state))
  }
}


results <- sing$GetPaSim(matchup = matchups, return.features = TRUE)
results = results[order(results$woba_exp, decreasing = TRUE), ]
print(results)