R/myCX.R

In rikenbit/mwTensor: Multi-Way Component Analysis

Defines functions myCX

Documented in myCX

myCX <- function(Xn, k){
    if(k == 1){
        .normMat(CX(Xn, rank=k+1)$C, "column")[,1]
    }else{
        .normMat(CX(Xn, rank=k)$C, "column")
    }
}