# NOT RUN {
df <- data.frame(LactateOrderProvSpecDSC = c("Pulmonary Disease",
"Family Medicine"),
LactateOrderProvNM = c("Hector Salamanca",
"Gus Fring"),
COV = c(0.43,0.35),
VolumeRaw = c(2,3),
VolumePercent = c(0.32,0.78),
Impact = c(0.46,1.05),
AboveMeanCOVFLG = c('Y','N'),
AboveMeanVolumeFLG = c('N','Y'))
head(df)
categoricalCols <- c("LactateOrderProvSpecDSC","LactateOrderProvNM")
dfRes <- createVarianceTallTable(df = df,
categoricalCols = categoricalCols,
measure = "LOS")
head(dfRes)
# }
Run the code above in your browser using DataLab