## load data
data(bmt)
bmt = transform(bmt, d4=d2+d3)
A = as.numeric(bmt$group>1)
X = as.matrix(bmt[,c('z1','z3','z5')])
bmt$A = A
fit = tteICE(Surv(t2, d4, type = "mstate")~A|z1+z3+z5,
data=bmt, strategy="whileon", method='eff')
print(fit$ph)
zph(fit)
plot(fit$ph$ph11)
plot(fit$ph$ph10)
## No results when method is nonparametric
fit.np = tteICE(Surv(t2, d4, type = "mstate")~A|z1+z3+z5,
data=bmt, strategy="whileon", method='np')
print(fit.np$ph)
Run the code above in your browser using DataLab