Nothing
components <- function(x, ...) UseMethod("components")
components.ictest <- function (x, which="all", ...)
{
which <- match.arg(which, c("all", "k"))
if (which=="all") {S <- x$S} else {S <- x$S[ ,0:x$k, drop=FALSE]}
S
}
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.