Nothing
testpart <- function (part, ord=TRUE)
{
if (!inherits(part,'partana'))
stop("you must pass an object of class partana")
clustering <- part$clustering
ptc <- part$ptc
best <- apply(ptc, 1, which.max)
match <- best == clustering
out <- ptc[!match,]
fullout <- data.frame(clustering[!match],
best[!match],out)
if (ord) fullout <- fullout[order(fullout[, 1], fullout[, 2]), ]
names(fullout) <- c("cluster", "better", as.character(1:ncol(ptc)))
fullout
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.