fix edgecase in predict for fa objects

easystats · Jun 15, 2024 · 238d141 · 238d141
1 parent 5adbe97
commit 238d141
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$r)], ...))
   } else {
     out <- as.data.frame(stats::predict(attri$model, newdata = newdata, ...))
   }