# 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",time="Year",exogenous=c("Population","GDP"),
data=industry,log=TRUE)
drawSample(indus.mod,10)
# }
Run the code above in your browser using DataLab