https://github.com/cran/smacof
Raw File
Tip revision: 33eaaa0f8a23e4860a9a45d24da33520c662e182 authored by Patrick Mair on 02 February 2016, 15:55:12 UTC
version 1.8-10
Tip revision: 33eaaa0
procrustus.R
procrustus <- function (x) {
    sx <- svd (x)
    return (tcrossprod (sx$u, sx$v))
}
back to top