data(bcos)
bcos$event <- ifelse(bcos$left!=bcos$right,1,0)
### Cox proportional hazard model with interval censoring ###
cox.ic <- frailtyPenal(SurvIC(left,right,event)~treatment,
data=bcos,Frailty=FALSE,n.knots=8,kappa1=10000)
### Shared model with interval censoring ###
bcos$group <- c(rep(1:20,4),1:14)
sha.ic <- frailtyPenal(SurvIC(left,right,event)~cluster(group)+
treatment,data=bcos,Frailty=TRUE,n.knots=8,kappa1=10000)
Run the code above in your browser using DataLab