ardl_3132 <- ardl(LRM ~ LRY + IBO + IDE, data = denmark, order = c(3,1,3,2))
ce2 <- coint_eq(ardl_3132, case = 2)
plot_lr(ardl_3132, coint_eq = ce2)
## Compare fitted values and place long-run relationship separately ----
ce3 <- coint_eq(ardl_3132, case = 3)
plot_lr(ardl_3132, coint_eq = ce3, facets = TRUE, show_fitted = TRUE,
show.legend = TRUE)
Run the code above in your browser using DataLab