Fixed bootstrap IRFs

VFCI · Oct 9, 2023 · 7ac9dd2 · 7ac9dd2
1 parent 4328662
commit 7ac9dd2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/bootstrap.R b/R/bootstrap.R
@@ -184,8 +184,8 @@ bootstrap <- function(
 
   irf_df <- data.frame(
     h = rep(1:n_ahead, each = k * k),
-    impulse = rep(shock_names, times = k * n_ahead),
-    response = rep(variable_names, each = k, times = n_ahead),
+    impulse = rep(shock_names, each = k, times = n_ahead),
+    response = rep(variable_names, times = k * n_ahead),
     mean = c(irf_mean),
     median = c(irf_median),
     lower = c(irf_lower),