data(syg_data)
out_srsr <- nardl_uecm_sym(x = syg_data,
decomp = 'ca_ip',
assumption = c('SRSR'),
control =NULL,
p_order =5,
q_order =3,
dep_var = 'ca_u',
graph_save = FALSE,
case = 3)
out_srsr
out_lrsr <- nardl_uecm_sym(x = syg_data,
decomp = 'ca_ip',
assumption = c('LRSR'),
control =NULL,
p_order =5,
q_order =3,
dep_var = 'ca_u',
graph_save = FALSE,
case = 3)
out_lrsr
Run the code above in your browser using DataLab