data(bmt)
bmt = transform(bmt, d4=d2+d3)
A = as.numeric(bmt$group>1)
## composite variable strategy
fit = surv.HR(A, bmt$t2, bmt$d4, "composite")
## while on treatment strategy
X = bmt[,c('z1','z3','z5')]
fit = surv.HR(A, bmt$t2, bmt$d4, "whileon", cov1=X)
Run the code above in your browser using DataLab