El modelo CoxPh se describe como h(t|X)=h0(t)eβX donde h0(t) es la función de riesgo de base y no es paramétrica. Si se tiene el siguiente modelo
require(survival) surv_object <- Surv(time = ovarian$futime, event = ovarian$fustat) fit.coxph <- coxph(surv_object ~ rx + resid.ds + age_group + ecog.ps, data = ovarian) (fit.coxph)
La función de riesgo acumulativo del modelo anterior H0(t) se puede obtener de esta manera cumulativeHazard<- basehaz(fit.coxph)
y la función de riesgo de base suave también puede obtenerse mediante el método descrito por Royston
Pero, suponiendo que no se tenga acceso al modelo ajustado (en este caso fit.coxph
) ni los datos utilizados en la modelización (en este caso ovarian
), en su lugar tiene acceso a los coeficientes exponenciales del modelo β (cocientes de riesgo), tamaño de la muestra n (en este caso n=26
), y el número de eventos δ (en este caso δ =12). Normalmente, esto es lo que se encuentra en los resultados de los trabajos más publicados (los datos nunca se publican)
A mi pregunta, ¿cómo se puede estimar/aproximar la función de riesgo acumulativo H0(t) o incluso la función de riesgo de base h0(t) de la información disponible.
Muchas gracias