# NOT RUN {
data(industry)
indus.code <- list(
Consum~ecq(Job,0,5),
Pollution~ecq(Job,1,8)+ecq(Consum,1,7)
)
indus.mod <- dlsem(indus.code,group="Region",exogenous=c("Population","GDP"),data=industry,
log=TRUE)
as.graphNEL(indus.mod)
# }
Run the code above in your browser using DataLab