R/DRG_Calculator.R

In EdwardGemson/DS_Lab_2: DRG Calculator for DS1 Lab 2

library(dplyr)
library(ggplot2)
library(mdsr)
library(devtools)
library(roxygen2)
drg.data <- read.csv('data/DRG_data.csv')
#' Title
#'
#' @param df_col
#' @param calc
#'
#' @return
#' @export
#'
#' @examples
stat_calc <- function(df_col, calc) {
  calc(df_col)
}
stat_calc(drg.data$Average.Medicare.Payments, sd)