tests/testthat/test-kNNdist.R

test_that("kNNdist", {
  set.seed(665544)
  n <- 1000
  x <- cbind(
    x = runif(10, 0, 10) + rnorm(n, sd = 0.2),
    y = runif(10, 0, 10) + rnorm(n, sd = 0.2),
    z = runif(10, 0, 10) + rnorm(n, sd = 0.2)
  )

  d <- kNNdist(x, k = 5)
  expect_length(d, n)

  d <- kNNdist(x, k = 5, all = TRUE)
  expect_equal(dim(d), c(n, 5))

  # does the plot work?
  #kNNdistplot(x, 5)
})
mhahsler/dbscan documentation built on Aug. 30, 2024, 11:20 p.m.