discSurv (version 2.0.0)

estSurvCens: Estimated Survival Function of Censoring Process

Description

Estimates the marginal survival function G(T=t) of the censoring process based on a life table estimator. Compatible with single event and competing risks data.

Usage

estSurvCens(dataShort, timeColumn, eventColumns)

Arguments

dataShort

Data in original short format ("class data.frame").

timeColumn

Name of column with discrete time intervals ("character vector").

eventColumns

Names of the event columns of dataShort("character vector"). In the competing risks case the event columns have to be in dummy encoding format ("numeric vector").

Value

Named vector of estimated survival function of the censoring process for all time points except the last theoretical interval.

References

tutzModelDiscdiscSurv

See Also

estSurv

Examples

# NOT RUN {

# Load unemployment data
library(Ecdat)
data(UnempDur)

# Select subsample
subUnempDur <- UnempDur [1:100, ]

######################
# Single event example

# Estimate censoring survival function G(t)
estG <- estSurvCens(dataShort = subUnempDur, timeColumn = "spell", 
eventColumns = "censor1")
estG

#########################
# Competing risks example

# Estimate censoring survival function G(t)
estG <- estSurvCens(dataShort = subUnempDur, timeColumn = "spell", 
eventColumns = c("censor1", "censor2", "censor3", "censor4"))
estG


# }