- if (!is.numeric(nb_per_chunk) || length(nb_per_chunk)!=2)
- stop("'nb_per_chunk': numeric, size 2")
- nb_per_chunk[1] <- .toInteger(nb_per_chunk[1], function(x) x>=1)
- # A batch of contributions should have at least as many elements as a batch of series,
- # because it always contains much less values
- nb_per_chunk[2] <- max(.toInteger(nb_per_chunk[2],function(x) x>=1), nb_per_chunk[1])
+ nb_series_per_chunk <- .toInteger(nb_series_per_chunk, function(x) x>=1)
+ # K1 (number of clusters at step 1) cannot exceed nb_series_per_chunk, because we will need
+ # to load K1 series in memory for clustering stage 2.
+ if (K1 > nb_series_per_chunk)
+ stop("'K1' cannot exceed 'nb_series_per_chunk'")