tests/testthat/test-evaluateSpaceFilling.R

test_that("mindist", {
  D1 <- matrix(1:7,7,5)
  dfD1 <- as.data.frame(D1)
  expect_equal(mindist(D1), 5)
  expect_equal(mindist(dfD1), 5)
  expect_equal(mindist(D1, "euclidean"), sqrt(5))
  expect_error(mindist(D1, "jaccard"))
})

Try the SOAs package in your browser

Any scripts or data that you put into this service are public.

SOAs documentation built on Aug. 11, 2023, 1:09 a.m.