splitByGroup: Split patient record data in subsets which all contain all...
In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Description Usage Arguments Value Author(s) See Also Examples

This is a generalisation of the splitByOrg function and has in effect replaced it.

1	splitByGroup(total.data, survData.total, groupCol = "lab_group")

`total.data`	The complete combined raw data.
`survData.total`	The complete survival data format array with multiple same-patient in-hospital infection records retained.
`groupCol`	The field name to split into lists by. Currently use `lab_group` for organism stratification, `Gram`, `CombinedMET` or `VAN`.

A list of stratified survival data patient records arrays.

N Green

splitByOrg

##---- 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 (total.data, survData.total, groupCol = "lab_group") 
{
    survDataByGroup <- list()
    namesGroup <- as.character(unique(total.data[!is.na(total.data[, 
        groupCol]), groupCol]))
    for (name in namesGroup) {
        groupRows <- (total.data[, groupCol] == name & total.data$infstatus == 
            1) | total.data$infstatus == 0
        groupRows[is.na(groupRows)] <- FALSE
        uniqueGroupRows <- rmOrganism(total.data[groupRows, ])
        survDataByGroup[[name]] <- survData.total[groupRows, 
            ][uniqueGroupRows, ]
    }
    survDataByGroup
  }