tests/testthat/test-thiefModel.R

if(require(forecast) & require(testthat)){
  test_that("Testing thiefModel()", {
    h <- 5
    fc <- thiefModel(AirPassengers, models = "aefnt", h = 5)
    expect_true(class(fc) == "forecast")
    expect_true(length(fc$mean) == 5)
  })
}

Try the forecastHybrid package in your browser

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

forecastHybrid documentation built on May 2, 2019, 4:02 a.m.