R/invall.R

Defines functions invall

invall <-
function(X) {
  indmginv <- min(svd(X)$d) < 1e-10
  if(indmginv == TRUE) mginv(X)
  else(solve(X))
}

Try the SSN package in your browser

Any scripts or data that you put into this service are public.

SSN documentation built on March 7, 2023, 5:30 p.m.