Fixed printing of call in ets()

robjhyndman · Apr 17, 2024 · 1f537eb · 1f537eb
1 parent e565f31
commit 1f537eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)) {