Print the rate table

Usage

ov_print_rate_table(ssd, team, setter_id)

Arguments

ssd: simulated setter distribution output as returned by ov_simulate_setter_distribution()
team: string: team name
setter_id: string: setter_id

Examples

dvw <- ovdata_example("190301_kats_beds")
system.time({
  ssd <- ov_simulate_setter_distribution(dvw = dvw, play_phase = "Reception",
                                         n_sim = 500, setter_position_by = "front_back")
  team <- ssd$raw_data$meta$teams$team[1]
  setter_id <- ssd$raw_data$meta$players_h$player_id[which(ssd$raw_data$meta$players_h$role == "setter")][1]
  ov_print_rate_table(ssd, team, setter_id)
})
#>    user  system elapsed 
#>  38.616   0.040  38.651