tests/testthat/test_outlier_distance.R

In lenaWitterauf/rElki: An R interface to Java package ELKI (Version 0.7.5)

library(rElki)


testthat::test_that('knn_outlier', {
  test_data   <- replicate(5, rnorm(20))
  test_result <- rElki::knn_outlier(test_data, 3)
  testthat::expect_length(test_result, nrow(test_data))
  testthat::expect_null(rJava::.jgetEx())
})

testthat::test_that('knn_weight_outlier', {
  test_data   <- replicate(5, rnorm(20))
  test_result <- rElki::knn_weight_outlier(test_data, 3)
  testthat::expect_length(test_result, nrow(test_data))
  testthat::expect_null(rJava::.jgetEx())
})

testthat::test_that('odin', {
  test_data   <- replicate(5, rnorm(20))
  test_result <- rElki::odin(test_data, 3)
  testthat::expect_length(test_result, nrow(test_data))
  testthat::expect_null(rJava::.jgetEx())
})