inst/tinytest/test-selection-matrix.R

In anticlust: Subset Partitioning via Anticlustering

library("anticlust")

# constructing selection matrix from clusterin vector and reversing works
for (M in 1:4) {
  for (K in 2:5) {
    for (i in 3:8) {
      N <- K * i
      clusters <- sample(rep(1:K, N/K))
      selected <- anticlust:::selection_matrix_from_clusters(clusters)
      clusters2 <- anticlust:::clusters_from_selection_matrix(selected)
      expect_true(all(anticlust:::order_cluster_vector(clusters) == clusters2))
    }
  }
}