data(bmt)
bmt$time <- bmt$time + runif(408) * 0.001
out <- aalenMets(Surv(time, cause == 1) ~ tcell + platelet + age, data = bmt)
summary(out)
## Comparison with timereg::aalen
## out2 <- timereg::aalen(
## Surv(time, cause == 1) ~ const(tcell) + const(platelet) + const(age),
## data = bmt
## )
## summary(out2)
Run the code above in your browser using DataLab