R/expM.R

Defines functions expM

# Matrix power


expM <- function(X, e) {

    v	=  La.svd(X)
    res	=  v$u %*% diag(v$d^e) %*% v$vt

    return(res)
}

Try the metaCCA package in your browser

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

metaCCA documentation built on Nov. 8, 2020, 10:58 p.m.