R/procruster.R

#'procruster: a procrustes function 
#'
#'@param x numeric matrix
#'@return a matrix
procruster <- function (x) 
{
    sx <- svd(x)
    return(tcrossprod(sx$u, sx$v))
}

Try the smacofx package in your browser

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

smacofx documentation built on July 7, 2025, 3:01 p.m.