R/dimred_mds_isomds.R

In dynverse/dyndimred: Dimensionality Reduction Methods in a Common Format

#' @rdname dimred
#' @export
dimred_mds_isomds <- function(x, ndim = 2, distance_method) {
  requireNamespace("MASS")

  distance_method <- match.arg(distance_method)
  dis <- calculate_distance(x, method = distance_method)
  space <- MASS::isoMDS(as.dist(dis), k = ndim)$points

  .process_dimred(space)
}
formals(dimred_mds_isomds)$distance_method <- dynutils::list_distance_methods()