# NOT RUN {
<!-- % checked in test-confint.R -->
# }
# NOT RUN {
data("wafers")
wfit <- HLfit(y ~X1+(1|batch),family=Gamma(log),data=wafers,method="ML")
confint(wfit,"X1") # profile CI
if (spaMM.getOption("example_maxtime")>30) {
confint(wfit,"X1", boot_args=list(nsim=99)) # bootstrap CI induced by 'boot_args'
# bootstrap CI induced by 'parm' being a function:
confint(wfit,parm=function(v) fixef(v)[["X1"]],
boot_args=list(nb_cores=10, nsim=199))
# Same effect if 'parm' is a quoted expression in terms of 'hlfit':
confint(wfit,parm=quote(fixef(hlfit)[["X1"]]),
boot_args=list(nb_cores=10, nsim=199))
}
# }
Run the code above in your browser using DataLab