tests/testthat/test-msts.R

# A unit test for msts.R
if (require(testthat)) {
  test_that("tests for msts() and print.msts()", {
    x <- msts(taylor, seasonal.periods = c(48, 336), ts.frequency = 48, start = 2000 + 22 / 52)
    expect_output(print(x), regexp = "Multi-Seasonal Time Series")
  })
}

Try the forecast package in your browser

Any scripts or data that you put into this service are public.

forecast documentation built on June 22, 2024, 9:20 a.m.