Skip to content

Commit

Permalink
fix
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Dec 6, 2023
1 parent 189cf82 commit f55a0e0
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion R/utils_pca_efa.R
Original file line number Diff line number Diff line change
Expand Up @@ -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, ...))
}
Expand Down

0 comments on commit f55a0e0

Please sign in to comment.