R/mySVD.R

Defines functions mySVD

Documented in mySVD

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

Try the mwTensor package in your browser

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

mwTensor documentation built on July 9, 2023, 6:42 p.m.