library('vkde')
test_that("dimensionality of ruleOfThumb output", {
expect_equal(length(ruleOfThumb(numeric(10))),1)
expect_equal(length(ruleOfThumb(array(0,dim = c(3,4)))), 3)
})
test_that("dist_to_knn is correct", {
expect_equal(dist_to_knn(c(1,2),array(1:10,dim = c(2,5)),k = 1),0)
expect_equal(dist_to_knn(x=c(1,2),nghDat=array(1:10,dim=c(2,5)),k=1),0)
})
test_that("sample_dist_to_knn is correct", {
expect_equal(sample_dist_to_knn(1:4,3), c(3,2,2,3))
expect_equal(length(sample_dist_to_knn(sampleDat = array(1:12,dim = c(3,4)),k = 1)),
4)
expect_equal(sample_dist_to_knn(sampleDat = array(0,dim = c(3,4)),k = 1),
rep(0,4))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.