test_that("computeClusters1 behave as expected",
{
require("MASS", quietly=TRUE)
- library("clue", quietly=TRUE)
+ if (!require("clue", quietly=TRUE))
+ skip("'clue' package not available")
# 3 gaussian clusters, 300 items; and then 7 gaussian clusters, 490 items
n = 300
if (length(indices)>0) series[indices,] else NULL
}
wf = "haar"
- getCoefs = function(indices) curvesToCoefs(series[indices,],wf)
- medoids_K1 = getSeries( clusteringTask(1:n, getCoefs, K1, 75, 4) )
+ ctype = "absolute"
+ getContribs = function(indices) curvesToContribs(series[indices,],wf,ctype)
+ medoids_K1 = getSeries( clusteringTask(1:n, getContribs, K1, 75, 4) )
medoids_K2 = computeClusters2(medoids_K1, K2, getSeries, 120)
expect_equal(dim(medoids_K1), c(K1,L))