R/fastcluster.R

In kkholst/mets: Analysis of Multivariate Event Times

Defines functions fast.cluster

Documented in fast.cluster

##' @export
fast.cluster <- function(x,...) {
    arglist <- list("FastCluster",
                    time=as.integer(x),
                    PACKAGE="mets")
    res <- do.call(".Call",arglist)
    return(as.vector(res))
}