R/myCX.R

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")
    }
}

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.