R/drg_stat.R

In Creatran/drgLab: makes the boxplot of payments by DRG code as well as calculates statistics over all of the DRG codes

#' drg statistics
#'
#' @param data
#' @param f
#'
#' @return numeric number
#' @export
#'
#' @examples
#'

drg_stat <- function(data, f){
  drg_new <- data %>%
    mutate(drgCode = as.factor(substr(DRG.Definition, start = 1, stop = 3)))
  as.numeric(drg_new$drgCode) %>% f()
}