if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
library(tsibbledata)
aus_production %>%
autoplot(vars(Beer, Cement))
fit <- aus_production %>%
model(VARIMA(vars(Beer, Cement) ~ pdq(4,1,1), identification = "none"))
fit
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
fit %>%
forecast(h = 50) %>%
autoplot(tail(aus_production, 100))
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
fitted(fit)
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
residuals(fit)
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
tidy(fit)
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
glance(fit)
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
report(fit)
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
generate(fit, h = 10)
}
if (FALSE) { # requireNamespace("tsibbledata", quietly = TRUE)
IRF(fit, h = 10, impulse = "Beer")
}
Run the code above in your browser using DataLab