data("CCAI", package = "GPArotation")
# Kaiser normalization
factanal(factors = 3, covmat = CCAI_R, n.obs = 461, rotation = "oblimin",
control = list(rotate = list(normalize = TRUE)))
data(Harman, package = "GPArotation")
# two ways to do Kaiser normalization
quartimin(Harman8, normalize = TRUE, randomStarts = 100)
quartimin(Harman8, normalize = "Kaiser", randomStarts = 100)
# Cureton-Mulaik normalization
quartimin(Harman8, normalize = "CM", randomStarts = 100)
Run the code above in your browser using DataLab