swh:1:snp:3a44eb759780145deea094ac2a25c5049546a085
Raw File
Tip revision: c52ce072e457ea91212cea8cbcace0daa866910b authored by Han Lin Shang on 07 October 2018, 07:10:02 UTC
version 5.1
Tip revision: c52ce07
matrix.rank.R
matrix.rank <- function(X)
{
    X.sv <- abs(La.svd(X)$d)
    return(sum((X.sv/max(X.sv)) > 1e-09))
}
back to top