?? print.fclust.r
字號:
print.fclust <- function (x, ...) { clobj <- x if (!is.null(clobj$iter)) cat("\n Clustering on Training Set\n\n\n") else cat("\n Clustering on Test Set\n\n\n") cat("Number of Clusters: ", clobj$ncenters, "\n") cat("Sizes of Clusters: ", clobj$size, "\n\n") cat("Centers of Clusters: ", clobj$centers, "\n\n") # cat("Learning Parameters:",clobj$call,"\n\n") if (clobj$iter < clobj$call$iter.max) cat("Algorithm converged after", clobj$iter, "iterations.\n") else cat("Algorithm did not converge after", clobj$iter, "iterations.\n") }
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -