medoids_K1 = bigmemory::as.big.matrix( sapply( 1:K1, function(i) s[[I(i,K1)]] ) )
algoClust2 = function(dists,K) cluster::pam(dists,K,diss=TRUE)$id.med
medoids_K2 = clusteringTask2(medoids_K1, K2, algoClust2, getRefSeries,
medoids_K1 = bigmemory::as.big.matrix( sapply( 1:K1, function(i) s[[I(i,K1)]] ) )
algoClust2 = function(dists,K) cluster::pam(dists,K,diss=TRUE)$id.med
medoids_K2 = clusteringTask2(medoids_K1, K2, algoClust2, getRefSeries,