library(mstate)
tmat <- trans.illdeath()
times <- seq(0, 5, 0.1)
ms_fit <- list(Haz = data.frame(time = rep(times, 3),
Haz = c(replicate(3, cumsum(runif(length(times), 0, 0.02)))),
trans = rep(1:3, each = length(times))),
trans = tmat)
class(ms_fit) <- "msfit"
ms_fit_interpolated <- extend_msfit(ms_fit, seq(0, 5, 0.01))
Run the code above in your browser using DataLab