R/supplbasis.R

Defines functions supplbasis

Documented in supplbasis

supplbasis <-
function(A,B,tol=sqrt(.Machine$double.eps)) {
  if (qr(A,tol=tol)$rank < qr(cbind(A,B),tol=tol)$rank) return(basis(B-projector(A,tol=tol)%*%B))
  else return(NULL)
}

Try the lmreg package in your browser

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

lmreg documentation built on May 2, 2019, 9:29 a.m.