R/factor.residuals.R

"factor.residuals" <-
function(r, f) {
 if(is.matrix(f)) {
   rstar <- r - factor.model(f)} else {
   Phi <- f$Phi
   f <- f$loadings
    rstar <- r - factor.model(f,Phi=Phi)}
   return(rstar)}

Try the psych package in your browser

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

psych documentation built on Sept. 26, 2023, 1:06 a.m.