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

Description Usage Arguments Details Examples

If administratively censored fill-in censoring time and add flag.

1	adminCens(total.data)

total.data

Infected and non-infected datasets handled separately. Maximum discharge/death date for each sample separately i.e. administrative censoring times (not necessarily equal).

##---- 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) 
{
    mix.disdteMax <- max(total.data$hes_disdte[total.data$infstatus == 
        0], na.rm = TRUE)
    inf.disdteMax <- max(total.data$hes_disdte[total.data$infstatus == 
        1], na.rm = TRUE)
    inhosp <- total.data$missingTime == 0 & total.data$hes_dismethdescription %in% 
        c("Not applicable patient still in hospital", "Not known")
    total.data$hes_disdte[total.data$infstatus == 0 & inhosp] <- mix.disdteMax
    total.data$hes_disdte[total.data$infstatus == 1 & inhosp] <- inf.disdteMax
    total.data$missingTime <- total.data$missingTime | inhosp
    total.data$missingType[inhosp] <- 0
    total.data$adm_diff_dis <- ifelse(total.data$hes_disdte - 
        total.data$hes_admdte == 0, 0.5, total.data$hes_disdte - 
        total.data$hes_admdte)
    total.data
  }