data(readmission)
# /*** Shared frailty model ***/
modSha<-frailtyPenal(Surv(time,event)~as.factor(dukes)+cluster(id),
n.knots=10,kappa1=10000,data=readmission,Frailty=TRUE,
hazard="Splines")
print(modSha,type="surv",conf=FALSE)
# /*** Cox proportional hazard model using Penalized likelihood ***/
modCox<-frailtyPenal(Surv(time,event)~as.factor(dukes),n.knots=10,
kappa1=10000,data=readmission,Frailty=FALSE,
hazard="Splines")
print(modCox)Run the code above in your browser using DataLab