Estimate cured fraction

Estimates the cured fraction using a Kaplan-Meier fitted object.

Usage

cure_estimate(object)

Arguments

object

a survfit object.

Value

estimated proportion of cured observations

See also

survfit, sufficient_fu_test, nonzerocure_test

Examples

library(survival)
withr::local_seed(1234)
temp <- generate_cure_data(n = 100, j = 10, n_true = 10, a = 1.8)
training <- temp$training
km_fit <- survfit(Surv(Time, Censor) ~ 1, data = training)
cure_estimate(km_fit)
#> [1] 0.4870998