data(bmt)
dcut(bmt,breaks=2) <- ~age
out1<-BinAugmentCifstrata(Event(time,cause)~platelet+agecat.2+
strata(platelet,agecat.2),data=bmt,cause=1,time=40)
summary(out1)
out2<-BinAugmentCifstrata(Event(time,cause)~platelet+agecat.2+
strata(platelet,agecat.2)+strataC(platelet),data=bmt,cause=1,time=40)
summary(out2)
Run the code above in your browser using DataLab