X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Ftest-clustering.R;h=98c84c59a165ccdb2d16a2c79205654801520a4c;hp=2e3a4315f600766c7016ff2e5225071c2b17becd;hb=a961844f362e16c1a4fd3e45d170615b9e11c27f;hpb=14c10f2d252f45349e0b4fbf87e17dfbfae39f92

diff --git a/epclust/tests/testthat/test-clustering.R b/epclust/tests/testthat/test-clustering.R
index 2e3a431..98c84c5 100644
--- a/epclust/tests/testthat/test-clustering.R
+++ b/epclust/tests/testthat/test-clustering.R
@@ -24,7 +24,7 @@ test_that("clusteringTask1 behave as expected",
 
 	require("cluster", quietly=TRUE)
 	algoClust1 <- function(contribs,K) cluster::pam(t(contribs),K,diss=FALSE)$id.med
-	indices1 <- clusteringTask1(1:n, getContribs, K1, algoClust1, 140, verbose=TRUE, parll=FALSE)
+	indices1 <- clusteringTask1(1:n, getContribs, K1, algoClust1, 140, verbose=TRUE)
 	medoids_K1 <- getSeries(indices1)
 
 	expect_equal(dim(medoids_K1), c(L,K1))
@@ -59,7 +59,7 @@ test_that("clusteringTask2 behave as expected",
 	# Perfect situation: all medoids "after stage 1" are ~good
 	algoClust2 <- function(dists,K) cluster::pam(dists,K,diss=TRUE)$id.med
 	indices2 <- clusteringTask2(1:K1, getSeries, K2, algoClust2, 210, 3, 4, 8, "little",
-		verbose=TRUE, parll=FALSE)
+		verbose=TRUE)
 	medoids_K2 <- getSeries(indices2)
 
 	expect_equal(dim(medoids_K2), c(L,K2))