tests/testthat/test-levels.R

In forecastHybrid: Convenient Functions for Ensemble Time Series Forecasts

test_that("forecast nnetar prediction intervals with different levels work", {
   set.seed(23456)
   inputSeries <- ts(rnorm(5), f = 2)
   hm2 <- hybridModel(inputSeries, models = "afn", weights = "equal")
   # forecast with nnetar and PI = TRUE is very slow, so use few npaths
   expect_error(forecast(hm2, h = 48, npaths = 10), NA)
   expect_error(forecast(hm2, h = 48, level = c(70, 80, 90, 95), npaths = 10), NA)
})