# NOT RUN {
data(ml2)
MM1<-hsemmodeling(Model="mean",Link="identity",
LinPred=urge~urge1+dep1+(1|id)+(urge1|id)+(dep1|id),
RandDist=c("gaussian","gaussian","gaussian"))
DM1<-hsemmodeling(Model="dispersion",Link = "log",
LinPred=phi~(1|id),RandDist=c("gaussian"))
MM2<-hsemmodeling(Model="mean",Link="identity",
LinPred=dep~urge1+dep1+(1|id)+(urge1|id)+(dep1|id),
RandDist=c("gaussian","gaussian","gaussian"))
DM2<-hsemmodeling(Model="dispersion",Link = "log",
LinPred=phi~(1|id),RandDist=c("gaussian"))
res<-hsemfit(RespDist=c("gaussian","gaussian"),DataMain=list(ml2,ml2),
structure="independent",MeanModel=list(MM1,MM2),
DispersionModel=list(DM1,DM2))
# }
Run the code above in your browser using DataLab