tests/testthat/test-components.R

context("test-components.R")

test_that("Test component extraction of fasster models", {
  fit_component <- components(USAccDeaths_fit)
  expect_identical(colnames(fit_component), c(".model", "index", "value", "season(12)", "trend(1)"))
  expect_identical(NROW(fit_component), NROW(USAccDeaths))
  expect_identical(fit_component[["index"]], USAccDeaths[["index"]])
})
mitchelloharawild/fasster documentation built on Sept. 10, 2022, 11:31 p.m.