R/B2P.R
In LDRTools: Tools for Linear Dimension Reduction

B2P <-
function(x)
    {
    x <- as.matrix(x)
    x %*% tcrossprod(solve(crossprod(x)), x) 
    }

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

LDRTools documentation built on Sept. 18, 2023, 1:06 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the LDRTools package in your browser