Cumulative incidence function under competing risks

Aalen-Johansen: CIF_k(t) = sum S(t_{i-1}) d_ki / n_i, where S is the ALL-CAUSE Kaplan-Meier. That factor is the point: treating competing events as censored overstates the incidence.

Usage

Cif(time, cause, code = 1, alpha = 0.05)

morie_survival_cif(time, cause, code = 1, alpha = 0.05)

Arguments

time: observed follow-up times.
cause: cause of failure, 0 for censored.
code: the cause whose incidence is wanted.
alpha: significance level for the interval.

Value

list with the cumulative incidence, its standard error, the confidence interval and the event times.

References

Aalen, O. O. and Johansen, S. (1978). An empirical transition matrix for non-homogeneous Markov chains based on censored observations. Scandinavian Journal of Statistics 5(3), 141-150.

Examples

V <- c(1, 2, 3, 4, 5, 6, 7, 8)
Cif(V, V)
#> $time
#> [1] 1 2 3 4 5 6 7 8
#> 
#> $cif
#> [1] 0.125 0.125 0.125 0.125 0.125 0.125 0.125 0.125
#> 
#> $se
#> [1] 0.1169268 0.1169268 0.1169268 0.1169268 0.1169268 0.1169268 0.1169268
#> [8] 0.1169268
#> 
#> $lower
#> [1] 0 0 0 0 0 0 0 0
#> 
#> $upper
#> [1] 0.3541723 0.3541723 0.3541723 0.3541723 0.3541723 0.3541723 0.3541723
#> [8] 0.3541723
#> 
#> $n_risk
#> [1] 8 7 6 5 4 3 2 1
#> 
#> $n_event
#> [1] 1 0 0 0 0 0 0 0
#> 
#> $naive_one_minus_km
#> [1] 0.125
#> 
#> $naive_overstates_by
#> [1] 0
#> 
#> $overall_survival_at_end
#> [1] 0
#> 
#> $cause
#> [1] 1
#> 
#> $n
#> [1] 8
#> 
#> $method
#> [1] "Aalen-Johansen cumulative incidence; the naive curve censors the competing events and overstates"
#>