boot.clos.dtable: Bootstrap LOS with data.table

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

Description

A data.table version of boot_clos() for faster run-time.

Usage

boot.clos.dtable(data, state.names, tra, cens.name, s = 0, nboot)

Arguments

data	class(data.table)
state.names
tra
cens.name
s
nboot

See Also

boot.clos

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 (data, state.names, tra, cens.name, s = 0, nboot) 
{
    res <- double(nboot)
    setkey(data, "id")
    for (i in seq_len(nboot)) {
        index <- sample(unique(data[, id]), replace = TRUE)
        dboot <- data[J(index)]
        tr.prob <- etm(dboot, state.names, tra, cens.name, s, 
            cova = FALSE)
        res[i] <- etm::clos(tr.prob)$e.phi
    }
    res
  }

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