Extract model formula for mixturecure object

Extract the model formula for `mixturecure` object

Usage

# S3 method for class 'mixturecure'
formula(x, ...)

Arguments

x

an object from class `mixturecure`.

...

other arguments.

Value

a formula representing the incidence and variables for the latency portion of the model

Examples

library(survival)
withr::local_seed(1234)
temp <- generate_cure_data(n = 100, j = 10, n_true = 10, a = 1.8)
training <- temp$training
fit <- curegmifs(Surv(Time, Censor) ~ .,
  data = training, x_latency = training,
  model = "weibull", thresh = 1e-4, maxit = 2000,
  epsilon = 0.01, verbose = FALSE
)
#> Warning: Warning: Maximum step of iterations achieved.
#>                            Algorithm may not converge.
formula(fit)
#> curegmifs(formula = Surv(Time, Censor) ~ ., data = training, 
#>     x_latency = training, model = "weibull", epsilon = 0.01, 
#>     thresh = 1e-04, maxit = 2000, verbose = FALSE)