# 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)
# Simulations
results <- Simul_GIRF(Dicho_Y = Var_Y, Exp_X = Var_X, Int = TRUE, Lag = 1, t_mod = 1 ,
n_simul = 2 , centile_shock = 0.95, horizon = 3, OC = "AM")
# print results
results
#}
# }
Run the code above in your browser using DataLab