data(fuel_price)
uecm_case3 <- ardl_uecm(x = fuel_price,
p_order =c(6),
q_order =c(5,3),
dep_var = c('fpp'),
expl_var = c('bdc', 'wti'),
graph_save = FALSE,
case = 3)
uecm_case3
uecm_case3$cointegration
uecm_case3$Longrun_relation
uecm_case3$`diagnostics test`
uecm_case2 <- ardl_uecm(x = fuel_price,
p_order =c(3),
q_order =c(4),
dep_var = c('fpp'),
expl_var = c('wti'),
graph_save = TRUE,
case = 2)
uecm_case2
uecm_case2$cointegration
uecm_case2$Longrun_relation
uecm_case2$`diagnostics test`
Run the code above in your browser using DataLab