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"]])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.