library(curephEM)
# A simulated data set
data("sim.cureph.data")
# Fit logistic-CoxPH cure-rate model
fit=cureph(Surv.cure(time,time2,event,origin=0,end=20)~Z1+Z2+Z3+Z4,data=sim.cureph.data)
# The survival-prediction object
mysurv = survpred(fit,center=TRUE)
oldpar = par()
par(mfrow=c(1,2))
plot(mysurv)
plot(mysurv,FALSE)
par(oldpar)
Run the code above in your browser using DataLab