From de40517401fbc32c274fec24adcccfee8a664c83 Mon Sep 17 00:00:00 2001
From: Mitchell <mitch.ohara-wild@monash.edu>
Date: Sun, 14 Oct 2018 11:30:36 +1100
Subject: [PATCH] Fixed transformations of mstl objects

Resolves #748
---
 R/mstl.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/mstl.R b/R/mstl.R
index 945835b3..f699c3a4 100644
--- 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]])