Merge branch 'main' into rc_0_21_8

easystats · Jun 17, 2024 · 8939098 · 8939098
2 parents a94f1bd + 266c947
commit 8939098
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils_pca_efa.R b/R/utils_pca_efa.R
@@ -178,7 +178,7 @@ predict.parameters_efa <- function(object,
     out <- as.matrix(newdata) %*% as.matrix(attri$model$loadings)
     out <- stats::setNames(as.data.frame(out), paste0("Component", seq_len(ncol(out))))
   } else if (inherits(attri$model, c("psych", "fa", "principal"))) {
-    out <- as.data.frame(stats::predict(attri$model, data = newdata, ...))
+    out <- as.data.frame(stats::predict(attri$model, data = newdata[rownames(attri$model$weights)], ...))
   } else {
     out <- as.data.frame(stats::predict(attri$model, newdata = newdata, ...))
   }