swh:1:snp:3a44eb759780145deea094ac2a25c5049546a085
Raw File
Tip revision: aeaa37c244ade876dc2f49eff4ed26dca4d9db7a authored by Han Lin Shang on 02 November 2021, 05:00:14 UTC
version 6.1
Tip revision: aeaa37c
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