R/internal_miscMNM.R

In MNM: Multivariate Nonparametric Methods. An Approach Based on Spatial Signs and Ranks

`frobenius.norm` <-
function(A)
    {
    sqrt(sum(A^2))
    }


`mat.sqrt` <-
function (A) 
{
    eigen.A <- eigen(A)
    sqrt.A <- eigen.A$vectors %*% (diag(eigen.A$values^0.5)) %*% 
        t(eigen.A$vectors)
    return(sqrt.A)
}