# NOT RUN {
data("bmt", package="KMsurv")
require("survival")
t1 <- ten(c1 <- coxph(Surv(t2, d3) ~ z3*z10, data=bmt))
asWide(t1)
# }
# NOT RUN {
asLong(asWide(t1))
stopifnot(asLong(asWide(t1)) == ten(ten(t1)))
# }
Run the code above in your browser using DataLab