add fix

apache · Jan 31, 2017 · 72fb951 · 72fb951
1 parent 52c9eb1
commit 72fb951
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {