From 72fb951205599117c9cf4cbabc89801437c5f735 Mon Sep 17 00:00:00 2001 From: "wm624@hotmail.com" Date: Tue, 31 Jan 2017 15:16:02 -0800 Subject: [PATCH] add fix --- R/pkg/R/mllib_clustering.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/pkg/R/mllib_clustering.R b/R/pkg/R/mllib_clustering.R index 101205f86182f..8823f90775960 100644 --- a/R/pkg/R/mllib_clustering.R +++ b/R/pkg/R/mllib_clustering.R @@ -394,7 +394,7 @@ setMethod("summary", signature(object = "KMeansModel"), k <- callJMethod(jobj, "k") size <- callJMethod(jobj, "size") clusterSize <- callJMethod(jobj, "clusterSize") - coefficients <- t(matrix(coefficients, ncol = clusterSize)) + coefficients <- t(matrix(unlist(coefficients), ncol = clusterSize)) colnames(coefficients) <- unlist(features) rownames(coefficients) <- 1:clusterSize cluster <- if (is.loaded) {