Improve VECM xreg -> matrix flattening

tidyverts · Nov 1, 2024 · cb2f2eb · cb2f2eb
1 parent e9f5548
commit cb2f2eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 <- do.call(cbind, specials$xreg[[1]]$xreg) # Convert from df to matrix
+  xreg <- Reduce(cbind, specials$xreg[[1]]$xreg) # Convert from df to matrix
 
   # Choose best model
   reduce(transpose(expand.grid(p = p, constant = constant)),