R/rnk.R

In PEIP: Geophysical Inverse Theory and Optimization

Defines functions rnk

Documented in rnk

rnk <-
function(G, tol=1e-14)
  {
    ###  tries to duplicate the matlab function rank
    ###   which returns the number of non-zero singular values
    SV=svd(G);
    return(length(which(SV$d>tol)))
  }

Try the PEIP package in your browser