if (FALSE) {
rst.abc <- imData(abc, trt="TRT", surv="SURV", outcome=c("Y1","Y2"),
y0=NULL, endfml="Y2",
trt.label = c("UC+SBT", "SAT+SBT"),
cov=c("AGE"), duration=365, bounds=c(0,100));
rst.fit <- imFitModel(rst.abc);
rst.imp <- imImpAll(rst.fit, deltas=c(-0.25,0,0.25),
normal=TRUE, chains = 2, iter = 2000, warmup = 1000);}
Run the code above in your browser using DataLab