if (FALSE) {
data(bmt)
dfactor(bmt) <- ~.
fit <- binregATE(Event(time,cause)~tcell.f+platelet+age,bmt,time=50,cause=1,
treat.model=tcell.f~platelet+age)
# default ATE behavior (DR + G)
head(IC(fit))
# only DR component
head(IC(fit, "DR"))
# multiple components
head(IC(fit, c("coef", "DR")))
}
Run the code above in your browser using DataLab