# NOT RUN {
# }
# NOT RUN {
# Long running example...
data(pcidata)
xvars <- c("stent", "height", "female", "diabetic", "acutemi", "ejfract", "ves1proc")
hclobj <- LCcluster(pcidata, xvars)
LC.env <- LCsetup(hclobj, pcidata, thin, surv6mo)
surv050 <- ltdagg( 50)
surv100 <- ltdagg(100)
surv200 <- ltdagg(200)
LCcompare()
# }
Run the code above in your browser using DataLab