Nothing
test_that("ts_ works with more exotic options", {
skip_if_not_installed("dygraphs")
expect_equal(ts_(rowSums)(ts_c(mdeaths, fdeaths)), mdeaths + fdeaths)
ts_(dygraphs::dygraph, class = "xts")
expect_equal(
ts_(function(x) x, class = "ts", vectorize = TRUE)(ts_c(mdeaths, fdeaths)),
ts_c(mdeaths, fdeaths)
)
expect_error(load_suggested("blabla"))
expect_error(ts_(function(x) x, reclass = FALSE, vectorize = TRUE))
})
test_that("ts_ based functions pass arguments in seasonal", {
skip_on_cran()
skip_if_not_installed("seasonal")
# copied from x13binary::supportedPlatform
supportedPlatform <- function() {
z <- FALSE
if (.Platform$OS.type == "windows") {
z <- TRUE
}
if (Sys.info()["sysname"] %in% c("Linux")) {
z <- TRUE
}
if (Sys.info()["sysname"] %in% c("Darwin")) {
z <- compareVersion(Sys.info()["release"], "11.0.0") >=
0
}
if ((.Platform$OS.type == "unix") && !(Sys.info()["sysname"] %in%
c("Darwin", "Linux"))) {
z <- FALSE
}
z
}
if (!supportedPlatform()) {
skip("x13binary is not supported on this platform")
}
sa <- ts_seas(ts_c(mdeaths, fdeaths), x11 = "")
expect_equal(
ts_pick(sa, "mdeaths"),
predict(seasonal::seas(mdeaths, x11 = ""))
)
expect_equal(
ts_pick(sa, "fdeaths"),
predict(seasonal::seas(fdeaths, x11 = ""))
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.