data(agres)
# first order differentiation
agres.diff <- applyDiff(c("NPATENT","GVA","ENTR_INCOME","PPI"),group="COUNTRY",data=agres,k=1)
# no adaptation of lag shapes
dl0 <- dlaglm(PPI~quec(NPATENT,0,13)+quec(GVA,0,14)+GDP+FARM_SIZE,group="COUNTRY",
data=agres.diff,log=TRUE)
### adaptation of lag shapes: NOT RUN
#dl0 <- dlaglm(PPI~quec(NPATENT,0,15)+quec(GVA,0,15)+GDP+FARM_SIZE,group="COUNTRY",
# data=agres.diff,log=TRUE,adapt=TRUE,max.gestation=c(NPATENT=3,GVA=3),
# min.width=c(NPATENT=5,GVA=5),sign=c(NPATENT="+",GVA="+"))
# summaries of model fitting
summary(dl0)
Run the code above in your browser using DataLab