# NOT RUN {
# Fit a Cox model using model based variance estimation
fit.ee <- coxphlb(Surv(a, y, delta) ~ x1 + x2, data = ExampleData1,
method = "EE")
summary(fit.ee) # display the results
# Fit a Cox model using bootstrap resampling method
fit.bs <- coxphlb(Surv(a, y, delta) ~ x1 + x2, data = ExampleData1,
method = "Bootstrap", seed.n = 1234)
summary(fit.bs) # display the results
# }
Run the code above in your browser using DataLab