Sort levels in forecast.ets and forecast.Arima

robjhyndman · Oct 25, 2016 · d789108 · d789108
1 parent 8a12efe
commit d789108
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/R/arima.R b/R/arima.R
@@ -276,6 +276,7 @@ forecast.Arima <- function (object, h=ifelse(object$arma[5] > 1, 2 * object$arma
     else if(min(level) < 0 | max(level) > 99.99)
       stop("Confidence limit out of range")
   }
+  level <- sort(level)
   if(use.drift)
   {
     n <- length(x)

diff --git a/R/etsforecast.R b/R/etsforecast.R
@@ -24,6 +24,8 @@ forecast.ets <- function(object, h=ifelse(object$m>1, 2*object$m, 10),
     else if(min(level) < 0 | max(level) > 99.99)
       stop("Confidence limit out of range")
   }
+  # Order levels
+  level <- sort(level)
 
   n <- length(object$x)
   damped <- as.logical(object$components[4])