R/match_win_prob.R

In skoval/inmatch_api: Dynamic In-Match Prediction

#' Conditional Match Win Probability
#'
#'
#' @param set_a Numeric sets won by current server at start of point
#' @param set_b Numeric sets won by current returner at start of point
#' @param matrices List of lookup table for conditional probabilities
#' @param serving_player Numeric (1 or 2) for server matrices
#' @param returning_player Numeric (1 or 2) for receiver matrices
#'
#' @export
match_win_prob <- function(set_a, set_b, matrices, serving_player = 1, returning_player = 2) {
		          part3 <- matrices[[serving_player]]$match[(set_a + 
		                1), (set_b + 1)]
part3
 }