tests/testthat/test-density_points.R

In anevolbap/ktaucenterscpp: Robust Clustering Procedures

test_that("density_points", {

    set.seed(1)
    m <- matrix(rnorm(1e3), ncol = 2)
    expected_output <- 1/c(5.990406, 4.711414, 4.134972, 4.651841, 5.580436, 3.178011)

    expect_equal(round(head(density_points(m)), 6),
                 round(expected_output, 6))
})