add method in summary

rjdverse · Jul 24, 2024 · 9134fb8 · 9134fb8
1 parent b85ee84
commit 9134fb8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/display.R b/R/display.R
@@ -375,6 +375,9 @@ summary.JD3_SARIMA_ESTIMATE <-function(object, ...){
 }
 #' @export
 print.summary.JD3_REGARIMA_RSLTS <- function(x,  digits = max(3L, getOption("digits") - 3L), signif.stars = getOption("show.signif.stars"), ...){
+  if (!is.null(x$method)) # Used to add the method when regarima/tramo function is used
+      cat("Method:", x$method, "\n")
+
   if (!is.null(x$log))
     cat("Log-transformation:",if (x$log) {"yes"} else {"no"},"\n",sep=" ")