data(qardl_sim)
# Rolling estimation with 50-observation window
roll <- qardl_rolling(y ~ x1 + x2, data = qardl_sim,
tau = c(0.25, 0.50, 0.75), p = 2, q = 2, window = 50)
print(roll)
# Recursive estimation
recur <- qardl_rolling(y ~ x1 + x2, data = qardl_sim,
tau = c(0.50), p = 2, q = 2,
window = 50, method = "recursive")
print(recur)
Run the code above in your browser using DataLab