# NOT RUN {
data(industry)
mycode <- list(
Consum~quec(Job,0,5),
Pollution~quec(Job,1,8)+quec(Consum,1,6)
)
myfit <- dlsem(mycode,group="Region",exogenous=c("Population","GDP"),data=industry,log=TRUE)
edgeCoeff(myfit,lag=0:10)
# }
Run the code above in your browser using DataLab