table.HR: table.HR

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

Usage

table.HR(output.HR)

Arguments

output.HR

See Also

table2.HR,table3.HR

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 (output.HR) 
{
    namesOrganisms <- names(output.HR)
    namesMethods <- names(output.HR[[1]])
    colNames <- c("organism", "method", "type", "beta", "exp(beta)", 
        "Lower CI", "Upper CI", "p")
    table.HR <- data.frame(matrix(ncol = length(colNames)))
    for (org in namesOrganisms) {
        for (meth in namesMethods) {
            namesEvent <- names(output.HR[[org]][[meth]])
            for (event in namesEvent) {
                table.HR <- rbind(table.HR, c(org, meth, event, 
                  extractCox(output.HR[[org]][[meth]][[event]])))
            }
        }
    }
    colnames(table.HR) <- colNames
    table.HR <- table.HR[!is.na(table.HR[, 1]), ]
    table.HR
  }

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