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 cops package in your browser

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

cops documentation built on Sept. 30, 2024, 9:22 a.m.