summaryTableGroup: summaryTableGroup

In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Usage

summaryTableGroup(survDataByGroup)

Arguments

survDataByGroup

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (survDataByGroup) 
{
    out <- NA
    for (group in names(survDataByGroup)) {
        out <- rbind(out, c(group, paste(round(mean(survDataByGroup[[group]]$age[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T)), "/", median(survDataByGroup[[group]]$age[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T), sep = ""), round(table(survDataByGroup[[group]]$gender[survDataByGroup[[group]]$infstatus == 
            1])[1]), paste(round(mean(survDataByGroup[[group]]$time[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T)), "/", median(survDataByGroup[[group]]$time[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T), " (", round(sd(survDataByGroup[[group]]$time[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T)), ")", sep = ""), paste(round(mean(survDataByGroup[[group]]$spectime[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T)), "/", median(survDataByGroup[[group]]$spectime[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T), " (", round(sd(survDataByGroup[[group]]$spectime[survDataByGroup[[group]]$infstatus == 
            1], na.rm = T)), ")", sep = ""), round(table(survDataByGroup[[group]]$event[survDataByGroup[[group]]$infstatus == 
            1])[2])))
    }
    colnames(out) <- c("Group", "Age (years)", "Sex", "LOS (days)", 
        "Inf time (days)", "Deaths")
    rownames(out) <- out[, "Group"]
    out <- out[!is.na(out[, 1]), -1]
    return(out)
  }

n8thangreen/HESmanip documentation built on March 21, 2020, 12:20 a.m.