ets() robust to non-integer seasonality

Author: robjhyndman

R/HoltWintersNew.R

@@ -272,6 +272,13 @@ zzhw <- function(x, lenx, alpha=NULL, beta=NULL, gamma=NULL, seasonal="additive"
     phi <- 1
   }
 
+  if(abs(m - round(m)) > 1e-4) {
+    # Ignore seasonality
+    m <- 1
+  } else {
+    m <- round(m)
+  }
+
   # initialise array of l, b, s
   level <- trend <- season <- xfit <- residuals <- numeric(lenx)
   SSE <- 0

R/ets.R

@@ -142,6 +142,11 @@ ets <- function(y, model="ZZZ", damped=NULL,
     stop("nmse out of range")
   }
   m <- frequency(y)
+  if(abs(m - round(m)) > 1e-4) {
+    warning("Non-integer seasonal period. Only non-seasonal models will be considered.")
+  } else {
+    m <- round(m)
+  }
 
   if (any(upper < lower)) {
     stop("Lower limits must be less than upper limits")