From 9134fb8d1de67fcecc3ff49de02133b88f676574 Mon Sep 17 00:00:00 2001
From: AQLT <alain.quartier@yahoo.fr>
Date: Wed, 24 Jul 2024 15:57:28 +0200
Subject: [PATCH] add method in summary

---
 R/display.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/display.R b/R/display.R
index 82e0c84..199bff7 100644
--- 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=" ")