R/proj.R

proj <-
function(M, tol = sqrt(.Machine$double.eps)) return(M%*%ginv(M, tol = tol))
marutter/lmreg documentation built on May 8, 2019, 1:51 p.m.