R/preprocess.R

In HongzheZhang/lab2: This is just a demo for the lab2

#' preprocess the data
#'
#' @param data
#'
#' @return df
#' @export
#'
#' @import dplyr
#' @import ggplot2
#'
#' @examples preprocess(DRG_data)
#'
#'
preprocess <- function(data){

  names(data) <- make.names(names(data))

  data <- data %>%
    group_by(DRG.Definition) %>%
    mutate(DRG = strsplit(as.character(DRG.Definition), split = ' ')[[1]][1]) %>%
    ungroup()
}