Fixed transformations of mstl objects

Resolves #748
robjhyndman · Oct 14, 2018 · de40517 · de40517 · davidreilly007 · Oct 14, 2018
1 parent 3372630
commit de40517
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/mstl.R b/R/mstl.R
@@ -48,7 +48,6 @@ mstl <- function(x, lambda=NULL, iterate=2, s.window=13, ...) {
   }
 
   # Replace missing values if necessary
-  origx <- x
   if (anyNA(x)) {
     x <- na.interp(x, lambda = lambda)
   }
@@ -92,7 +91,7 @@ mstl <- function(x, lambda=NULL, iterate=2, s.window=13, ...) {
   remainder <- deseas - trend
 
   # Package into matrix
-  output <- cbind(origx, trend)
+  output <- cbind(x, trend)
   if (!is.null(msts)) {
     for (i in seq_along(msts))
       output <- cbind(output, seas[[i]])