# NOT RUN {
#Long computing times
# }
# NOT RUN {
LCfit <- fit(lc(), data = EWMaleData)
LCResBoot <- bootstrap(LCfit, nBoot = 500, type = "residual")
plot(LCResBoot)
LCSemiObsBoot <- bootstrap(LCfit, nBoot = 500, type = "semiparametric")
plot(LCSemiObsBoot)
LCSemiFitBoot <- bootstrap(LCfit, nBoot = 500, type = "semiparametric",
deathType = "fitted")
plot(LCSemiFitBoot)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab