# NOT RUN {
data(us_rgdp)
rgdp <- us_rgdp$rgdp
cfnai <- us_rgdp$cfnai
rgdp[-1, 2] <- ((rgdp[-1, 2]/rgdp[-dim(rgdp)[1], 2])^4-1)*100
rgdp <- rgdp[-1, ]
data.y <- rgdp[,2]
data.ydate <- rgdp[,1]
est.start <- as.Date("1990-01-01")
est.end <- as.Date("2002-03-01")
data.x <- cfnai[,2]
data.xdate <- cfnai[,1]
midas_ardl(data.y, data.ydate, data.x, data.xdate,
x.lag = 12, y.lag = 4, est.start, est.end, horizon = 1,
polynomial = "legendre_w", legendre_degree = 3)
# }
Run the code above in your browser using DataLab