R/mySVD.R

In rikenbit/mwTensor: Multi-Way Component Analysis

Defines functions mySVD

Documented in mySVD

mySVD <- function(Xn, k){
    svd(Xn)$u[, seq(k)]
}