# NOT RUN {
data <- matrix(rnorm(200), ncol = 2)
x <- bvar(data, lags = 2)
# Get companion matrices for confidence bands at to 10%, 50% and 90%
companion(x, conf_bands = 0.10, complete = FALSE)
# Get companion matrices for all draws of the VAR coefficients
companion(x, complete = TRUE)
# }
Run the code above in your browser using DataLab