Nothing
#' @rdname dimred
#' @export
dimred_mds_sammon <- function(x, ndim = 2, distance_method) {
requireNamespace("MASS")
distance_method <- match.arg(distance_method)
dis <- calculate_distance(x, method = distance_method)
space <- MASS::sammon(as.dist(dis), k = ndim)$points
.process_dimred(space)
}
formals(dimred_mds_sammon)$distance_method <- dynutils::list_distance_methods()
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.