# \donttest{
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,n.knots=8,kappa=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,n.knots=8,kappa=10000)
# }
Run the code above in your browser using DataLab