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