R/invall.R

Defines functions invall

invall <-
function(X) {
  indmginv <- min(svd(X)$d) < 1e-10
  if(indmginv == TRUE) mginv(X)
  else(solve(X))
}
jayverhoef/SSN documentation built on May 1, 2023, 1:04 p.m.