Finds rank of upper triangular matrix R, by estimating condition
number of upper rank by rank block, and reducing rank
until this is acceptably low. Assumes R has been computed by a method that uses
pivoting, usually pivoted QR or Choleski.
Usage
Rrank(R,tol=.Machine$double.eps^.9)
Arguments
R
An upper triangular matrix, obtained by pivoted QR or pivoted Choleski.