R/treeClust.dist.R

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
}

Try the treeClust package in your browser

Any scripts or data that you put into this service are public.

treeClust documentation built on May 1, 2019, 7:59 p.m.