R/matrix.rank.r

Defines functions matrix.rank

matrix.rank <- function (X)
{
    X.sv <- abs(La.svd(X)$d)
    return(sum((X.sv / max(X.sv)) > 1e-09))
}

Try the rainbow package in your browser

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

rainbow documentation built on Jan. 29, 2019, 5:09 p.m.