data(readmission)
# Let's compare shared frailty model with Cox proportional hazards model
mod.sha<-frailtyPenal(Surv(time,event)~as.factor(dukes)+cluster(id),
n.knots=10,kappa1=10000,data=readmission)
plot(mod.sha,type="surv",conf=FALSE)
mod.cox<-frailtyPenal(Surv(time,event)~as.factor(dukes)+cluster(id),
n.knots=10,kappa1=10000,data=readmission,Frailty=FALSE)
lines(mod.cox,type="surv",conf=FALSE,col=2)
# Stratified model
mod<-frailtyPenal(Surv(time,event)~as.factor(dukes)+cluster(id)+strata(sex),
n.knots=10,kappa1=10000,kappa2=10000,data=readmission)
plot(mod)
# no confidence bands
plot(mod,conf.bands=FALSE)Run the code above in your browser using DataLab