print.kMeans <-
function(X) {
cat("K-Means clustering for", X$Xname, "\n\n")
cat("Number of runs:", X$m, "\n")
cat("Status of best run:", X$StatusAll[X$Best])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.