tests/testthat/test-threshold_detector.R

context("test-threshold_detector.R -- Simple Threshold Detector")

library(data.table)
data <- import_trainset(system.file("extdata", "sumsarizer_v1_013408_danny-labeled.csv", package = "sumsarizer"), metadata = NA)
setDT(data)
events <- threshold_detector(data,30)
ajaypillarisetti/sumr documentation built on Jan. 27, 2020, 10:01 p.m.