From af5af93512a9b87ad40af7094148105cd0da9a5e Mon Sep 17 00:00:00 2001
From: mitchelloharawild <mitch.ohara-wild@monash.edu>
Date: Fri, 1 Nov 2024 13:41:02 +1100
Subject: [PATCH] Fix VECM with nested array exogenous regressors

---
 R/vecm.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/vecm.R b/R/vecm.R
index ac01d08e..8d6f9ca0 100644
--- a/R/vecm.R
+++ b/R/vecm.R
@@ -8,7 +8,7 @@ train_vecm <- function(.data, specials, ic, ...) {
   
   # Get xreg
   constant <- specials$xreg[[1]]$constant
-  xreg <- specials$xreg[[1]]$xreg
+  xreg <- do.call(cbind, specials$xreg[[1]]$xreg) # Convert from df to matrix
   
   # Choose best model
   reduce(transpose(expand.grid(p = p, constant = constant)),