if (FALSE) {
data("fuel_price")
out1 <- nardl_auto_case(x = fuel_price,
decomp = 'wti',
dep_var = 'fpp',
control = 'bdc',
c_q_order = c(5),
p_order = c(5),
q_order = c(6),
gets_pval = 0.1,
order_l = 4,
graph_save = FALSE)
out1
out2 <- nardl_auto_case(x = fuel_price,
decomp = 'wti',
dep_var = 'fpp',
control = NULL,
c_q_order = c(4),
p_order = c(5),
q_order = c(6),
gets_pval = 0.02,
order_l = 4,
graph_save = FALSE)
out2
}
Run the code above in your browser using DataLab