Performance improvement in function classify_kmeans

alesantuz · Jan 5, 2024 · 7eae481 · 7eae481
1 parent 2167103
commit 7eae481
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/classify_kmeans.R b/R/classify_kmeans.R
@@ -156,7 +156,7 @@ classify_kmeans <- function(x,
       )
     }
 
-    withinss <- unlist(lapply(kmeans_all, function(y) sum(y$withinss)))
+    withinss <- vapply(kmeans_all, function(y) sum(y$withinss), FUN.VALUE = numeric(1))
     withinss <- withinss - min(withinss)
     withinss <- withinss / max(withinss)