robjhyndman
diff --git a/‎R/mstl.R‎
Lines changed: 1 addition & 0 deletions b/‎R/mstl.R‎
Lines changed: 1 addition & 0 deletions
@@ -38,6 +38,7 @@ mstl <- function(
       warning("Dropping seasonal components with fewer than two full periods.")
       msts <- msts[msts < n / 2]
       x <- msts(x, seasonal.periods = msts)
+      attr(origx, "msts") <- msts
     }
     msts <- sort(msts, decreasing = FALSE)
   } else if (is.ts(x)) {
Original file line number	Diff line number	Diff line change
`@@ -38,6 +38,7 @@ mstl <- function(`
`38`	`38`	`warning("Dropping seasonal components with fewer than two full periods.")`
`39`	`39`	`msts <- msts[msts < n / 2]`
`40`	`40`	`x <- msts(x, seasonal.periods = msts)`
	`41`	`+ attr(origx, "msts") <- msts`
`41`	`42`	`}`
`42`	`43`	`msts <- sort(msts, decreasing = FALSE)`
`43`	`44`	`} else if (is.ts(x)) {`