# NOT RUN {
data(denmark)
## Estimate the long-run multipliers of an ARDL(3,1,3,2) model ---------
# From an ARDL model
ardl_3132 <- ardl(LRM ~ LRY + IBO + IDE, data = denmark, order = c(3,1,3,2))
mult_ardl <- multipliers(ardl_3132)
mult_ardl
# From an UECM
uecm_3132 <- uecm(ardl_3132)
mult_uecm <- multipliers(uecm_3132)
mult_uecm
all.equal(mult_ardl, mult_uecm)
# }
Run the code above in your browser using DataLab