if (spaMM.getOption("example_maxtime")>6.1) {
data("crack") # crack data, Lee et al. 2006 chapter 11 etc
hlfit <- HLfit(y~crack0+(1|specimen),family=Gamma(log),
data=crack, HLmethod="REML",
rand.family=inverse.Gamma(log),
resid.model=list(formula=~cycle+(1|specimen)) )
}
Run the code above in your browser using DataLab