# NOT RUN {
# }
# NOT RUN {
data(readmission)
###--- Shared frailty model ---###
modSha <- frailtyPenal(Surv(time,event)~as.factor(dukes)+cluster(id),
n.knots=10,kappa=10000,data=readmission,hazard="Splines")
plot(modSha,type="surv",conf=FALSE)
###--- Cox proportional hazard model ---###
modCox <- frailtyPenal(Surv(time,event)~as.factor(dukes),n.knots=10,
kappa=10000,data=readmission,hazard="Splines")
plot(modCox)
#-- no confidence bands
plot(modSha,conf.bands=FALSE)
plot(modCox,conf.bands=FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab