add fix

wangmiao1981 · wangmiao1981 · commit 72fb95120559 · 2017-01-31T15:16:02.000-08:00
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) {
