inst/tinytest/test-util.R

In anticlust: Subset Partitioning via Anticlustering

library("anticlust")

# test of input works as expected
features <- matrix(rnorm(12), nrow = 4)
## False number of anticlusters:
expect_error(anticlust:::legal_number_of_clusters(features, 1))
## Only one distinct anticluster:
expect_error(anticlust:::legal_number_of_clusters(features, rep(1, nrow(features))))
## Anticlusters do not occur equally often:
expect_error(anticlust:::legal_number_of_clusters(features, c(1, 1, 1, 2)))
correct <- anticlust:::legal_number_of_clusters(matrix(rnorm(12), nrow = 4), c(1, 2, 1, 2))
expect_equal(correct, NULL)