# NOT RUN {
data(Schutz)
corPlot(Schutz,numbers=TRUE,upper=FALSE)
#f4min <- fa(Schutz,4,fm="minrank") #for an example of minimum rank factor Analysis
#compare to
#f4 <- fa(Schutz,4,fm="mle") #for the maximum likelihood solution which has a Heywood case
# }
Run the code above in your browser using DataLab