Style code

VFCI · Jul 24, 2024 · f8cd81a · f8cd81a
1 parent fa7446f
commit f8cd81a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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::`%^%`