tests/testthat/test_discord_brute_force.R

In jmotif: Time Series Analysis Toolkit Based on Symbolic Aggregate Discretization, i.e. SAX

#discord #0 "#0", at 411 distance to closest neighbor:
#              1.5045846602966542, info string: "elapsed time: 1s699ms, distance calls: 4403702"

#discord #1 "#1", at 37 distance to closest neighbor:
#              0.4787744771810631, info string: "elapsed time: 1s312ms, distance calls: 4004102"

#discord #2 "#2", at 1566 distance to closest neighbor:
#              0.44370598373247144, info string: "elapsed time: 1s199ms, distance calls: 3725326"

#discord #3 "#3", at 539 distance to closest neighbor:
#              0.44370598373247144, info string: "elapsed time: 1s94ms, distance calls: 3325726"

#discord #4 "#4", at 188 distance to closest neighbor:
#              0.41770204691861385, info string: "elapsed time: 980ms, distance calls: 3069982"

test_that("find discord brute force", {
  discords <- find_discords_brute_force(ecg0606[1:600], 100, 2)
  expect_equal(discords[discords$position == 411,]$nn_distance, 1.5045846602966542)
})