table2.HR: table2.HR

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

Usage

table2.HR(res, model)

Arguments

res
model

See Also

table.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 (res, model) 
{
    namesGroup <- unique(res$organism)
    numGroup <- length(namesGroup)
    res.sub <- res[res$method == model, c("organism", "exp(beta)", 
        "Lower CI", "Upper CI")]
    subHeads <- c("HR", "LCI", "UCI")
    colHeads <- c("organism", paste("atime", subHeads), paste("afull", 
        subHeads), paste("dtime", subHeads), paste("dfull", subHeads))
    res.new <- data.frame(matrix(ncol = length(colHeads), nrow = numGroup), 
        check.rows = FALSE)
    names(res.new) <- colHeads
    for (j in 1:numGroup) {
        res.temp <- NA
        firstrow <- min(which(res.sub$organism == namesGroup[j]))
        for (i in 1:4) {
            res.temp <- cbind(res.temp, res.sub[firstrow + i - 
                1, -1])
        }
        res.new[j, ] <- res.temp
    }
    res.new[, 1] <- namesGroup
    res.new
  }

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