# \donttest{
# Running takes more than 7 seconds...
data(pci15k)
xvars = c("stent", "height", "female", "diabetic", "acutemi", "ejfract", "ves1proc")
hclobj = NUcluster(pci15k, xvars)
NU.env = NUsetup(hclobj, pci15k, thin, surv6mo)
surv050 = ltdagg( 50, NU.env)
surv100 = ltdagg(100, NU.env)
surv200 = ltdagg(200, NU.env)
NUcompare(NU.env)
# }
Run the code above in your browser using DataLab