context("stats-decompose")
skip_on_cran()
skip_if_not_installed("modeltests")
library(modeltests)
test_that("augment.decomposed.ts", {
check_arguments(augment.decomposed.ts, strict = FALSE)
d1a <- stats::decompose(nottem, type = "additive")
d1b <- stats::decompose(nottem, type = "multiplicative")
d2 <- stats::stl(nottem, s.window = "periodic", robust = TRUE)
a1a <- augment(d1a)
a1b <- augment(d1b)
a2 <- augment(d2)
check_tibble(a1a, method = "augment")
check_tibble(a1b, method = "augment")
check_tibble(a2, method = "augment")
check_dims(a1a, 240, 4)
check_dims(a1b, 240, 4)
check_dims(a2, 240, 5)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.