if (FALSE) {
### (Not run during testing because it takes too long and
### may generate warnings because of the bootstrapping of
### the confidence intervals)
factorLoadingHeatmap(psych::fa(psych::Bechtoldt,
nfactors=2,
n.iter=50,
n.obs=200));
### And using a lower alpha value for the diamonds to
### make them more transparent
factorLoadingHeatmap(psych::fa(psych::Bechtoldt,
nfactors=2,
n.iter=50,
n.obs=200),
alpha=.5,
size=1);
}
Run the code above in your browser using DataLab