R/procrustus.R

procrustus <- function (x) {
    sx <- svd (x)
    return (tcrossprod (sx$u, sx$v))
}

Try the smacof package in your browser

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

smacof documentation built on March 19, 2024, 3:09 a.m.