Merge pull request #12 from hadley/dev-dplyr

Fix for dev dplyr
Redcart · Feb 26, 2023 · 5b68556 · 5b68556
2 parents fa87262 + f5c9d18
commit 5b68556
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/kmeans_procedure.R b/R/kmeans_procedure.R
@@ -71,7 +71,7 @@ kmeans_procedure <- function(data, columns, threshold_min, threshold_max, verbos
              kmeans(data[liste_temp$n_observation, columns], centers = k, iter.max = 50, nstart = 5, algorithm = "Lloyd"))
 
       assign(paste("volume_cluster_", b, ".", k, sep = ""),
-             table(eval(as.name(paste("model_kmeans_", b, ".", k, sep = "")))$cluster))
+             as.numeric(table(eval(as.name(paste("model_kmeans_", b, ".", k, sep = "")))$cluster)))
 
       eval(as.name(paste("volume_cluster_", b, ".", k, sep = "")))