factor.stats(r, f, phi=NULL, n.obs = NA)
factor.scores(x,f)
VSS
, ICLUST
, and principal
for this fit statistic.factanal
(which seems to be Bartlett's test) :
$\chi^2 = (n.obs - 1 - (2 * p + 5)/6 - (2 * factors)/3)) * f$factor.pa
for principal axis factor analysis, factor.minres
for minimum residual factor analysis, and principal
for principal components.v9 <- sim.hierarchical()
f3 <- factor.minres(v9,3)
factor.stats(v9,f3,n.obs=500)
f3o <- factor.pa(v9,3,rotate="Promax")
factor.stats(v9,f3o,n.obs=500)
Run the code above in your browser using DataLab