bugfix vcov

luisgruber · Jan 15, 2024 · ee80e8f · ee80e8f
1 parent 1088673
commit ee80e8f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utility_functions.R b/R/utility_functions.R
@@ -185,7 +185,7 @@ vcov.bayesianVARs_bvar <- function(object, ...){
   M <- ncol(object$Y)
   factors <- dim(object$facload)[2]
   Tobs <- nrow(object$logvar)
-  nsave <- dim(object$facload)[3]
+  nsave <- dim(object$PHI)[3]
 
   dates <- NULL
   if(Tobs==1L){