# NOT RUN {
# Fit a Cox model
fit.ee <- coxphlb(Surv(a, y, delta) ~ x1 + x2, data = ExampleData1,
method = "EE")
# Check the Proportional Hazards Assumption
ptest1 <- coxphlb.phtest(fit.ee, data = ExampleData1, spec.p = 2,
seed.n = 1234)
coxphlb.phtest.plot(ptest1, n.plot = 50, seed.n = 1234) # display the plot
# }
Run the code above in your browser using DataLab