From 7ac9dd2e9b67a3cae19b0665dd8d64ddb1b6bb16 Mon Sep 17 00:00:00 2001
From: matdehaven <matthew_dehaven@brown.edu>
Date: Mon, 9 Oct 2023 09:43:54 -0400
Subject: [PATCH] Fixed bootstrap IRFs

---
 R/bootstrap.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/bootstrap.R b/R/bootstrap.R
index 605684e..393334d 100644
--- 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),