Create a win probability graph for a match

## Usage

```
vs_match_win_probability(
pbp,
so,
go_to = 25,
go_to_tiebreak = 15,
max_sets = 5,
show_plot = TRUE,
home_color = "blue",
visiting_color = "darkred"
)
```

## Arguments

- pbp
data frame: a data frame containing the set number, home team, visiting team, serving team, point-winning team, home team score, and visiting team score at the end of each point, easiest to obtain by subsetting the plays component of a datavolley object as returned by

`datavolley::dv_read()`

to only include rows where`point == TRUE`

- so
integer: a two-element vector of sideout rates for the home team and visiting team, easiest to obtain using

`vs_estimate_rates()`

- go_to
integer: the minimum score that must be reached to end a non-tiebreaker set (typically 25 for indoor volleyball in sets 1 to 4, or 21 in beach volleyball)

- go_to_tiebreak
integer: the minimum score that must be reached to end a tiebreaker set (typically 15)

- max_sets
integer: the maximum number of sets that can be played, either 3 or 5

- show_plot
logical: if

`TRUE`

, produce a graph showing the home team's win probability at each point in the match- home_color
string: the color used to indicate points in the match where the home team is favored to win

- visiting_color
string: the same as

`home_color`

, but for the visiting team

## Value

A data frame containing the home team's probability of winning the set (`set_probs`

) and match (`match_probs`

) at each point in the set.
The first row of the data frame refers to the start of the match (0-0, Set 1).

## Examples

```
if (FALSE) {
library(datavolley)
x <- dv_read(vs_example_file())
sideout_rates <- vs_estimate_rates(x, target_team = "each")$sideout
play_by_play <- subset(plays(x), point)
vs_match_win_probability(play_by_play, sideout_rates) ## data frame is not printed to console
## but can be stored in a variable
match_win_probs <- vs_match_win_probability(play_by_play, sideout_rates)
}
```