# \donttest{
data(pqardl_sample)
fit <- xtpqardl(
formula = d_y ~ d_x1 + d_x2,
data = pqardl_sample,
id = "country",
time = "year",
lr = c("L_y", "x1", "x2"),
tau = c(0.25, 0.50, 0.75)
)
irf <- compute_irf(fit, horizon = 15)
print(irf)
# }
Run the code above in your browser using DataLab