library(AnomalyDetection)
context("Testing edge cases")
test_that("checking for errors if time series has constant value for all values", {
data <- rep(1,1000)
expect_true({AnomalyDetectionVec(data, period=14, plot=T, direction='both'); TRUE})
})
test_that("checking that midnight dates get H%M%S format applied", {
data_file <- system.file("extdata", "data.csv", package="AnomalyDetection")
data <- read.csv(data_file)
data$date <- as.POSIXct(strptime(data$date, "%Y-%m-%d %H:%M", tz = "UTC"))
anomalyDetectionResult <- AnomalyDetectionTs(data, max_anoms=0.2, threshold = "None",
direction='both', plot=FALSE,
only_last = "day", e_value = TRUE)
expect_equal(length(anomalyDetectionResult$anoms$anoms), length(anomalyDetectionResult$anoms$expected_value))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.