if (FALSE) {
# Example usage after scenarios() function call
# Requires scenario results from scenarios() function
result <- SimScen(mu_eps = scenario_output$mu_eps,
Sigma_eps = scenario_output$Sigma_eps,
mu_y = scenario_output$mu_y,
Sigma_y = scenario_output$Sigma_y,
big_b = scenario_output$big_b,
big_M = scenario_output$big_M,
n_sim = 1000, h = 3, varbls = c("GDP", "CPI", "FFR"))
}
Run the code above in your browser using DataLab