tests/testthat/test_euclidean_dist.R
In jMotif/jmotif-R: Time Series Analysis Toolkit Based on Symbolic Aggregate Discretization, i.e. SAX
a <- c(0.5, 0.8, 0.9)
b <- c(-0.15, 0.38, 0.92)
test_dist <- as.numeric(dist(rbind(a, b)))
test_that("early abandoned distance", {
expect_equal(test_dist, euclidean_dist(a, b))
expect_error(euclidean_dist(a, c(1, 2)))
})
jMotif/jmotif-R documentation built on Sept. 27, 2022, 4:31 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
a <- c(0.5, 0.8, 0.9)
b <- c(-0.15, 0.38, 0.92)
test_dist <- as.numeric(dist(rbind(a, b)))
test_that("early abandoned distance", {
expect_equal(test_dist, euclidean_dist(a, b))
expect_error(euclidean_dist(a, c(1, 2)))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.