vcov correction

rjdverse · Sep 15, 2023 · 5cb3680 · 5cb3680
1 parent f2f20ac
commit 5cb3680
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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$parameters$cov
-  } else {
     object$bvar
+  } else {
+    object$parameters$cov
   }
 }
 #' @export