# 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