Closed sgrieder closed 4 years ago
Sample code where the problem occurs:
EFA_mod <- EFA(IDS2_R, N = 1991, n_factors = 5, type = "EFAtools", method = "PAF", rotation = "promax") SL_flex <- SL(EFA_mod$rot_loadings, Phi = EFA_mod$Phi, type = "EFAtools", method = "PAF") SL_EFAtools <- SL(EFA_mod, type = "EFAtools", method = "PAF")
SL_flex and SL_EFAtools should render identical outputs, but it doesn't...
Sample code where the problem occurs:
EFA_mod <- EFA(IDS2_R, N = 1991, n_factors = 5, type = "EFAtools", method = "PAF", rotation = "promax") SL_flex <- SL(EFA_mod$rot_loadings, Phi = EFA_mod$Phi, type = "EFAtools", method = "PAF") SL_EFAtools <- SL(EFA_mod, type = "EFAtools", method = "PAF")
SL_flex and SL_EFAtools should render identical outputs, but it doesn't...