X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Fhelper.clustering.R;h=f39257e2b61df891ec37d5f36caee93cd170e1c8;hp=273a0b7912af8c6f362af19d015fec38d5910060;hb=a52836b23adb4bfa6722642ec6426fb7b5f39650;hpb=d9bb53c5e1392018bf67f92140edb10137f3423c

diff --git a/epclust/tests/testthat/helper.clustering.R b/epclust/tests/testthat/helper.clustering.R
index 273a0b7..f39257e 100644
--- a/epclust/tests/testthat/helper.clustering.R
+++ b/epclust/tests/testthat/helper.clustering.R
@@ -9,10 +9,10 @@ computeDistortion = function(series, medoids)
 	if (bigmemory::is.big.matrix(medoids))
 		medoids = medoids[,] #extract standard matrix
 
-	n = nrow(series) ; L = ncol(series)
+	n = ncol(series) ; L = nrow(series)
 	distortion = 0.
 	for (i in seq_len(n))
 		distortion = distortion + min( colSums( sweep(medoids,1,series[,i],'-')^2 ) / L )
 
-	distortion / n
+	sqrt( distortion / n )
 }