# NOT RUN {
#### Model checking plot for crack-growth data
data(crack_growth)
model_mu<-DHGLMMODELING(Model="mean", Link="log",
LinPred=y~crack0+(1|specimen),RandDist="inverse-gamma")
model_phi<-DHGLMMODELING(Model="dispersion", Link="log",
LinPred=phi~cycle+(1|specimen),RandDist="gaussian")
res_crack_dhglm1<-dhglmfit(RespDist="gamma", DataMain=crack_growth,
MeanModel=model_mu, DispersionModel=model_phi,Maxiter=1)
plotdhglm(res_crack_dhglm1)
# }
Run the code above in your browser using DataLab