From f8cd81ac0da58342e27cc2ccc3b63bfb565d8a41 Mon Sep 17 00:00:00 2001
From: "github-actions[bot]" <github-actions[bot]@users.noreply.github.com>
Date: Wed, 24 Jul 2024 15:24:52 +0000
Subject: [PATCH] Style code

---
 R/fe.R       | 1 -
 R/forecast.R | 3 +--
 R/irf.R      | 6 ++----
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/R/fe.R b/R/fe.R
index 98a260b..36df112 100644
--- a/R/fe.R
+++ b/R/fe.R
@@ -15,7 +15,6 @@
 #' fe(v, 10)
 #'
 fe <- function(var, horizon = 1) {
-
   ## Declare this to avoid "no visible binding" warning
   `%^%` <- expm::`%^%`
 
diff --git a/R/forecast.R b/R/forecast.R
index f2e9522..986d57d 100644
--- a/R/forecast.R
+++ b/R/forecast.R
@@ -16,7 +16,6 @@
 #' forecast(v, 10)
 #'
 forecast <- function(var, horizon = 1) {
-
   ## Declare this to avoid "no visible binding" warning
   `%^%` <- expm::`%^%`
 
@@ -49,7 +48,7 @@ forecast <- function(var, horizon = 1) {
 
   non_const <- (ssv$mx %^% (horizon)) %*% t(as.matrix(x_lag))
 
-  x_hat_h <-  t(c(ssv$my %*% const) + ssv$my %*% non_const)
+  x_hat_h <- t(c(ssv$my %*% const) + ssv$my %*% non_const)
 
   x_hat_h <- rbind(matrix(NA, var$p + (horizon - 1), var$K), x_hat_h)
   colnames(x_hat_h) <- colnames(x)
diff --git a/R/irf.R b/R/irf.R
index 867ee99..fb6bf2e 100644
--- a/R/irf.R
+++ b/R/irf.R
@@ -154,10 +154,8 @@ irf.bvartools <- function(
 #' @return array of irfs, dimensions = c(response, shock, horizon)
 #'
 irf_ssv <- function(
-  ssv,
-  n_ahead = 10
-) {
-
+    ssv,
+    n_ahead = 10) {
   ## Declare this to avoid "no visible binding" warning
   `%^%` <- expm::`%^%`