# NOT RUN {
# NOT RUN {
# Import data
data("data_USA")
# Data process
Var_Y <- as.vector(data_USA$NBER)
Var_X <- as.vector(data_USA$Spread)
# Simulation for the GIRF analysis
results_simulation <- Simul_GIRF(Var_Y, Var_X, TRUE, 1, 1, 2, 0.95, 3, "AM")
# Confidence intervals for the index
results <- GIRF_Index_CI(results_simulation, 0.95, 2, 3)
# print results
results
#}
# }
Run the code above in your browser using DataLab