Nothing
treeClust.dist <- function (x, ...)
{
#
# This function runs treeClust using its arguments and produces a "dist" object.
#
arg.list <- list (...)
arg.list$dfx <- x
if (any (names (arg.list) == "control"))
arg.list$control$return.dists <- TRUE
else
arg.list$control <- treeClust.control (return.dists = TRUE)
do.call ("treeClust", arg.list)$dists
}
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.