From f55a0e0a25ddb7aec3c543934239b66076fd15a6 Mon Sep 17 00:00:00 2001 From: Daniel Date: Wed, 6 Dec 2023 09:45:30 +0100 Subject: [PATCH] fix --- R/utils_pca_efa.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/utils_pca_efa.R b/R/utils_pca_efa.R index d10759ae7..11f317fef 100644 --- a/R/utils_pca_efa.R +++ b/R/utils_pca_efa.R @@ -181,7 +181,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, newdata = newdata, ...)) + out <- as.data.frame(stats::predict(attri$model, data = newdata, ...)) } else { out <- as.data.frame(stats::predict(attri$model, newdata = newdata, ...)) }