tests/testthat/test_internal.R
In vspinu/simdist: High performance distance and similarity functions
context("internal")
## test_that("range distance works as expected", {
## vecs <- matrix(runif(10*50), nrow = 50, ncol = 10)
## expect_equal(simdist:::C_dense_range_dist("COSINE", vecs, 1:ncol(vecs) - 1L, 1:ncol(vecs) - 1L),
## 1 - t(vecs) %*% vecs)
## })
vspinu/simdist documentation built on May 3, 2019, 7:09 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.
context("internal")
## test_that("range distance works as expected", {
## vecs <- matrix(runif(10*50), nrow = 50, ncol = 10)
## expect_equal(simdist:::C_dense_range_dist("COSINE", vecs, 1:ncol(vecs) - 1L, 1:ncol(vecs) - 1L),
## 1 - t(vecs) %*% vecs)
## })
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.