R/winning_percentage_formula.R

In choosunsick/kbodatamining: Kbo Data Mining and Analysis with R

#'  Winning Percentage(WPCT) formula
#'
#' Calculating WPCT from data
#'
#' @param data KBO pitcher data
#' @return WPCT from data
#' @examples
#' wpct_formula(hanhwa_pitcher_2018)
#' @export
wpct_formula <- function(data){
  wl <- sum(data$win,data$lose)
  wpct <- ifelse(wl!=0,sum(data$win)/wl,0)
  return(wpct)
}