R/factor.residuals.R

"factor.residuals" <-
function(r, f) {
 if(is.matrix(f)) {
   rstar <- r - factor.model(f)} else {
   f <- f$loadings
    rstar <- r - factor.model(f)}
   return(rstar)}
frenchja/psych documentation built on May 16, 2019, 2:49 p.m.