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);
rst.test <- imInfer(rst.imp, n.boot = 100);
print(rst.test, delta0 = 0, delta1 = 0.15)}
Run the code above in your browser using DataLab