From 1f537ebddf318050f7c5ed362bf92cf618041edc Mon Sep 17 00:00:00 2001
From: Rob Hyndman <robjhyndman@gmail.com>
Date: Thu, 18 Apr 2024 07:45:59 +1000
Subject: [PATCH] Fixed printing of call in ets()

---
 R/ets.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/ets.R b/R/ets.R
index ebb0aee4..6744d8d9 100644
--- a/R/ets.R
+++ b/R/ets.R
@@ -1101,7 +1101,7 @@ lik <- function(par, y, nstate, errortype, trendtype, seasontype, damped, par.no
 print.ets <- function(x, ...) {
   cat(paste(x$method, "\n\n"))
   if(!is.null(x$call)) {
-    cat(paste("Call:\n", deparse(x$call), "\n\n"))
+    cat("Call:", deparse(x$call), "", sep = "\n")
   }
   ncoef <- length(x$initstate)
   if (!is.null(x$lambda)) {