From f2f20acfbad234dbdd014509c7fc7b0edb5085be Mon Sep 17 00:00:00 2001
From: AQLT <alain.quartier@yahoo.fr>
Date: Fri, 15 Sep 2023 23:06:55 +0200
Subject: [PATCH] vcov correction

---
 R/regarima_generic.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/regarima_generic.R b/R/regarima_generic.R
index 1331d0b..b1d98bf 100644
--- a/R/regarima_generic.R
+++ b/R/regarima_generic.R
@@ -45,9 +45,9 @@ vcov.JD3_REGARIMA_RSLTS <- function(object, component = c("regression", "arima")
     return(NULL)
   component <- match.arg(component)
   if (component == "regression") {
-    object$estimation$parameters$cov
+    object$parameters$cov
   } else {
-    object$estimation$bvar
+    object$bvar
   }
 }
 #' @export