tests/testthat/test-forecast.R

In hts: Hierarchical and Grouped Time Series

# A unit test for forecast.gts() function
test_that("tests for 3 dots", {
  f1 <- forecast(htseg2, h = 4, algorithms = "lu")
  f2 <- forecast(htseg2, h = 4, ic = "aic", algorithms = "lu")
  
  expect_false(all(f1$bts == f2$bts))
})