# NOT RUN {
# }
# NOT RUN {
data(dataNested)
modNested <- frailtyPenal(Surv(t1,t2,event)~cluster(group)+
subcluster(subgroup)+cov1+cov2,data=dataNested,
n.knots=8,kappa=c(50000,50000),hazard="Splines")
#- It takes 90 minutes to converge (depends on processor)
summary(modNested)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab