R/rot.fac.R

rot.fac <-
function(x, B)	# proj is projected data, B is factor scores
{
    l<-sqrt(apply(x^2, 1,sum))
    x<-x/l
    y<-GPFoblq(x, method="oblimin")
    return(y$Th)
}

Try the DCA package in your browser

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

DCA documentation built on May 2, 2019, 7:58 a.m.