Cox-Snell residuals from a fitted morie Cox model.

Cox-Snell residuals from a fitted morie Cox model.

Usage

morie_survival_coxsnell(cox_result)

Arguments

cox_result

A coxph-style fit (as returned by morie_survival_cox); used by residual diagnostics (coxsnell, martingale, deviance).

Value

A numeric value (scalar).

Examples

set.seed(1)
df <- data.frame(t = rexp(60), e = rbinom(60, 1, 0.7),
                 x1 = rnorm(60), x2 = rnorm(60))
fit <- morie_survival_cox(df, "t", "e", c("x1", "x2"))
str(morie_survival_coxsnell(fit), max.level = 1)
#>  num [1:60] 0.4434 1.1938 0.086 0.0616 0.2749 ...