R/other_score.R

In niallbenj/footballstats: Classify and predict football results

Defines functions other_score

Documented in other_score

#' @title Other Score
#'
#' @export


other_score <- function(oth) {
  return(
    if (oth %>% `==`('W')) 'L' else if (oth %>% `==`('L')) 'W' else 'D'
  )
}