The Aalen model assumes that the cumulative hazard H(t) for a subject can be expressed as a(t) + X B(t), where a(t) is a time-dependent intercept term, X is the vector of covariates for the subject (possibly time-dependent), and B(t) is a time-dependent matrix of coefficients.
My intuition was that coefficient plots from plot.aareg produce cumulative hazards for each explanatory variable and intercept (or time-dependent baseline hazard). But should the cumulative hazard function be non-decreasing?
Anyhow, is there any way to get the survival function from this model?
library(survival)
library(tidyr)
library(dplyr)
lfit <- aareg(Surv(time, status) ~ sex , data=lung,
nmin=1)
plot(lfit)
tibble(t=lfit$times, coef=lfit$coefficient[,'Intercept']) %>%
group_by(t) %>%
summarise(baseline_coef_t=sum(coef)) %>%
mutate(baseline_cumhaz=cumsum(baseline_coef_t),
baseline_survival=exp(-baseline_cumhaz))

