Merge branch 'main' of https://github.com/VFCI/fevdid

VFCI · Oct 4, 2023 · af3869f · af3869f
2 parents ffc388b + abb8e85
commit af3869f
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/R/as_statespace_var.R b/R/as_statespace_var.R
@@ -24,7 +24,7 @@ as_statespace_var <- function(betas, sigma) {
 
   ## Create Var(1) objects
   my <- cbind(diag(k), matrix(0, k, k * (p - 1)))
-  mx <- rbind(a,  cbind(diag(k * (p - 1)), matrix(0, k * (p - 1), k)))
+  mx <- rbind(a, cbind(diag(k * (p - 1)), matrix(0, k * (p - 1), k)))
   me <- rbind(sigma, matrix(0, k * (p - 1), k))
 
   if (p == 1) my <- diag(k)

diff --git a/R/bootstrap.R b/R/bootstrap.R
@@ -138,7 +138,6 @@ bootstrap <- function(
       ystar <- ystar[-c(1:p), ]
 
       bootvar <- vars::VAR(ystar, p = p, type = var$type)
-
     } else if (design == "fixed") {
       ystar <- y_pred + t(boot_errors[, , nb])
       bstar <- t(ystar) %*% t(z) %*% solve(z %*% t(z))