# NOT RUN {
# Access a subset of the fred_qd dataset and transform it to be stationary
data("fred_qd")
data <- fred_qd[, c("CPIAUCSL", "UNRATE", "FEDFUNDS")]
data[5:nrow(data), 1] <- diff(log(data[, 1]), lag = 4) * 100
data <- data[5:nrow(data), ]
# Compute VAR using 2 lags and a ridiculously low number of draws
x <- bvar(data = data, lags = 1,
n_draw = 500, n_burn = 400, n_thin = 2, verbose = FALSE)
# }
# NOT RUN {
# Check out some of the outputs generated
plot(x)
predict(x)
plot(predict(x))
irf(x)
plot(irf(x))
# }
Run the code above in your browser using DataLab