tests/testthat/test-spline.R

In forecast: Forecasting Functions for Time Series and Linear Models

# A unit test for spline.R
test_that("Tests for splinef()", {
  fit <- spline_model(airmiles)
  expect_equal(fit$beta, 0.5591, tolerance = 1e-4)
  fc <- forecast(fit)
  expect_true(all(as.data.frame(fc) > 24000))
  expect_no_error(autoplot(fc))
  fit1 <- splinef(woolyrnq, lambda = 0.2, biasadj = FALSE)
  fit2 <- splinef(woolyrnq, lambda = 0.2, biasadj = TRUE)
  expect_false(identical(fit1$mean, fit2$mean))
  splinef(woolyrnq, method = "mle")
  splinef(WWWusage, method = "mle")
  expect_error(splinef(woolyrnq, level = 110))
  expect_error(splinef(woolyrnq, level = -10))
})