tests/testthat/test-linear-algebra-functions.R

In bmschmidt/wordVectors: Tools for creating and analyzing vector-space models of texts

context("VectorSpaceModel Linear Algebra is sensible")

test_that("Vectors are near to themselves",
          expect_lt(
            cosineDist(demo_vectors[1,],demo_vectors[1,]),
            1e-07
          )
)

test_that("Distance is between 0 and 2 (pt 1)",
          expect_gt(
            min(cosineDist(demo_vectors,demo_vectors)),
            -1e-07
          )
)

test_that("Distance is between 0 and 2 (pt 1)",
          expect_lt(
            max(cosineDist(demo_vectors,demo_vectors)),
            2 + 1e-07)
          )


test_that("Distance is between 0 and 2 (pt 1)",
          expect_lt(
            max(abs(1-square_magnitudes(normalize_lengths(demo_vectors)))),
            1e-07)
)