# NOT RUN {
# Only one independent series
data(warming)
model.ardl = ardlDlm(x = warming$NoMotorVehicles,
y = warming$Warming, p = 1 , q = 1 , show.summary = TRUE)
# Remove some lags
rem.p = c(1)
rem.q = c(1,3)
model.ardl = ardlDlm(x = warming$NoMotorVehicles,
y = warming$Warming, p = 2 , q = 3 , remove.p = rem.p,
remove.q = rem.q, show.summary = TRUE)
# Multiple independent series
data(M1Germany)
data = M1Germany[1:144,]
model.ardlDlm = ardlDlm(formula = logprice ~ interest + logm1,
data = data.frame(data) , p = 2 , q = 1 , show.summary = TRUE)
rem.p = matrix(c(1,2, NA), 3 , 1)
rem.q = c(1)
model.ardlDlm = ardlDlm(formula = logprice ~ interest + logm1,
data = data.frame(data) , p = 2 , q = 2 , remove.p = rem.p,
remove.q = rem.q , show.summary = TRUE)
# }
Run the code above in your browser using DataLab