- getCoefs = function(indices) curvesToCoefs(series[indices,],wf)
- medoids_K1 = getSeries( clusteringTask(1:n, getCoefs, K1, 75, 4) )
- medoids_K2 = computeClusters2(medoids_K1, K2, getSeries, 120)
+ ctype = "absolute"
+ getContribs = function(indices) curvesToContribs(series[indices,],wf,ctype)
+ medoids_K1 = getSeries( clusteringTask1(1:n, getContribs, K1, 75,
+ verbose=TRUE, parll=FALSE) )
+ medoids_K2 = computeClusters2(medoids_K1, K2, getSeries, n, 120,
+ verbose=TRUE, parll=FALSE)