# upload data
data(us_fiscal_lsuw) # upload dependent variables
data(us_fiscal_ex) # upload exogenous variables
# specify the model and set seed
set.seed(123)
specification = specify_bsvar_sv$new(us_fiscal_lsuw, p = 4, exogenous = us_fiscal_ex)
# run the burn-in
burn_in = estimate(specification, 10)
# estimate the model
posterior = estimate(burn_in, 20)
# compute impulse responses 2 years ahead
irf = compute_impulse_responses(posterior, horizon = 8)
# compute forecast error variance decomposition 2 years ahead
fevd = compute_variance_decompositions(posterior, horizon = 8)
# workflow with the pipe |>
############################################################
set.seed(123)
us_fiscal_lsuw |>
specify_bsvar_sv$new(p = 4, exogenous = us_fiscal_ex) |>
estimate(S = 10) |>
estimate(S = 20) |>
compute_variance_decompositions(horizon = 8) -> fevds
Run the code above in your browser using DataLab