R/YES_NO.R

In ultramattyice/traumaR: This package was created to manipulate the Pennsylvania Trauma Outcome System (PTOS) data.

#' Yes and No Classification
#'
#' @param col A column in PTOS data that requires conversion from 1's and 0's to Yes and No.
#'
#' @return It translations of the code into human friendly values.
#' @export
yes_no <- function(col) {
  col_value <-  case.(col == 1, "YES",
                      col == 2, "NO",
                      default = "UNK")
  return(col_value)
}