data(bmt)
dfactor(bmt) <- platelet.f~platelet
## logistic modelling of cumulative incidence
gg <- binreg_IPTW(Event(time,cause)~platelet.f+age,bmt,
treat.model=platelet.f~age,time=30)
summary(gg)
head(iid(gg))
## logistic modelling
gg <- binreg_IPTW(tcell~platelet.f+age,bmt,
treat.model=platelet.f~age)
summary(gg)
Run the code above in your browser using DataLab