svd_robust_R function

Iteratively reweighted singular value decomposition