context("test prophet functions")
test_that("do_prophet with aggregation", {
data("raw_data", package = "AnomalyDetection")
raw_data$timestamp <- as.POSIXct(raw_data$timestamp)
ret <- raw_data %>%
do_prophet(timestamp, count, 10, time_unit = "day")
})
test_that("do_prophet grouped case", {
data("raw_data", package = "AnomalyDetection")
raw_data$timestamp <- as.POSIXct(raw_data$timestamp)
expect_error({
ret <- raw_data %>%
dplyr::group_by(timestamp) %>%
do_prophet(timestamp, count, 10)
}, "timestamp is grouped. Please ungroup it.")
expect_error({
ret <- raw_data %>%
dplyr::group_by(count) %>%
do_prophet(timestamp, count, 10)
}, "count is grouped. Please ungroup it.")
})
test_that("do_prophet without value_col", {
data("raw_data", package = "AnomalyDetection")
raw_data$timestamp <- as.POSIXct(raw_data$timestamp)
ret <- raw_data %>%
do_prophet(timestamp, NULL, 10)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.