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