diff --git a/R/as_statespace_var.R b/R/as_statespace_var.R index 1d9faca..edef22c 100644 --- 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 index 7d12d0e..2e9419a 100644 --- 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))