if (bigmemory::is.big.matrix(medoids))
medoids = medoids[,] #extract standard matrix
if (bigmemory::is.big.matrix(medoids))
medoids = medoids[,] #extract standard matrix
distortion = 0.
for (i in seq_len(n))
distortion = distortion + min( colSums( sweep(medoids,1,series[,i],'-')^2 ) / L )
distortion = 0.
for (i in seq_len(n))
distortion = distortion + min( colSums( sweep(medoids,1,series[,i],'-')^2 ) / L )