Certifies that the values in the clu_num_points array, i.e. the number of
points in each cluster, add up to num_points. If this is not the case, the
clu_num_points array is modified in-place, incrementing the value
corresponding to the smallest cluster while
sum(clu_num_points) < num_points, or decrementing the value corresponding
to the largest cluster while sum(clu_num_points) > num_points.
Details
This function is used internally by clusizes and might be useful for
custom cluster sizing implementations given as the clusizes_fn parameter of
the main clugen function.
Examples
clusters <- c(1, 6, 3) # 10 total points
clusters <- fix_num_points(clusters, 12) # But we want 12 total points
clusters # Check that we now have 12 points
#> [1] 3 6 3