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