Nothing
plot.tuneclus<-function(x, dims = c(1,2), what = c(TRUE,TRUE), cludesc = FALSE, topstdres = 20, attlabs = NULL, binary = FALSE, subplot = FALSE, ...){
out=list()
if (inherits(x$clusobjbest,"cluspca")) {
out = plot.cluspca(x$clusobjbest, dims = dims, what = what, cludesc = cludesc, ...)
}
if (inherits(x$clusobjbest,"cluspcamix")) {
out = plot.cluspcamix(x$clusobjbest, dims = dims, what = what, cludesc = cludesc, ...)
}
if (inherits(x$clusobjbest,"clusmca")) {
out = plot.clusmca(x$clusobjbest,dims = dims, what = what, cludesc = cludesc, topstdres = topstdres, attlabs = attlabs, binary = binary, subplot = subplot, ...)
}
out
}
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.