R/expM.R

# Matrix power


expM <- function(X, e) {

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

    return(res)
}
acichonska/metaCCA documentation built on June 24, 2019, 12:36 a.m.