R/supplbasis.R
In marutter/lmreg: Data and Functions Used in Linear Models and Regression with R: An Integrated Approach
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-proj(A,tol=tol)%*%B))
else return(NULL)
}
marutter/lmreg documentation built on May 8, 2019, 1:51 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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-proj(A,tol=tol)%*%B))
else return(NULL)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.