if (FALSE) {
Loadings <-
matrix(c(.49, .41, .00, .00,
.73, .45, .00, .00,
.47, .53, .00, .00,
.54, .00, .66, .00,
.60, .00, .38, .00,
.55, .00, .66, .00,
.39, .00, .00, .68,
.71, .00, .00, .56,
.63, .00, .00, .55),
nrow = 9, ncol = 4, byrow = TRUE)
fungible::orderFactors(Lambda = Loadings,
PhiMat = NULL)$Lambda
}
Run the code above in your browser using DataLab