```
data(Schutz)
psych::corPlot(Schutz,numbers=TRUE,upper=FALSE)
# \donttest{
f4min <- psych::fa(Schutz,4,fm="minrank") #for an example of minimum rank factor Analysis
#compare to
f4 <- psych::fa(Schutz,4,fm="mle") #for the maximum likelihood solution which has a Heywood case
# }
```

Run the code above in your browser using DataCamp Workspace