data(coalition)
z.out1 <- zelig(Surv(duration,ciep12)~invest+numst2+crisis,
robust=TRUE,cluster="polar",model="coxph",data=coalition)
low <- setx(z.out1,numst2=0)
high <- setx(z.out1,numst2=1
# Simulate Survival Curves for Each Group
s.out1 <- sim(z.out1,x=low)
s.out2 <- sim(z.out1,x=high)
# Organize simulated output as a list
out <- list(s.out1,s.out2)
plot.surv(x = out, duration = coalition$duration, censor=coalition$ciep12,
type="line", plottimes=FALSE, plotcensor=FALSE,
main="Survival", xlab="Time", ylab="Survival")
Run the code above in your browser using DataLab