ardl_3132 <- ardl(LRM ~ LRY + IBO + IDE, data = denmark, order = c(3,1,3,2))
delay_mult <- multipliers(ardl_3132, type = 12, se = TRUE)
## Simply plot the delay multipliers -----------------------------------
plot_delay(delay_mult)
## Rearrange them ------------------------------------------------------
plot_delay(delay_mult, facets_ncol = 1)
## Add 1 standard deviation uncertainty intervals ----------------------
plot_delay(delay_mult, interval = 1)
## Add 95% confidence intervals, change color and add legend -----------
plot_delay(delay_mult, interval = 0.95, interval_color = "darkgrey",
show.legend = TRUE)
Run the code above in your browser using DataLab