data(fuel_price)
output_n1_case5 <- nardl_uecm(x = fuel_price,
decomp = c('bdc'),
control =c('wti'),
c_q_order = c(2),
p_order = c(3),
q_order = c(5),
dep_var = c('fpp'),
graph_save = FALSE,
case = 5)
output_n1_case5
output_n1_case5$UECM
output_n2_case3 <- nardl_uecm(x = fuel_price,
decomp = c('bdc'),
control =NULL,
c_q_order = NULL,
p_order = c(3),
q_order = c(5),
dep_var = c('fpp'),
graph_save = FALSE,
case = 3)
output_n2_case3
Run the code above in your browser using DataLab