# 导入数据who_data - readcsvCUsersLUOLAPTOP-4JKTLLT5Desktop多元作业实验3MVAPureDatawho1csv# 去掉第一列who_data - who_data-1# 主成分法pc - princompwho_data cor = TRUE scores = TRUEpc_loadings - pc$loadingspc_scores - pc$

这个错误提示意味着 R 无法识别 predict 函数应该如何处理 factanal 对象。这可能是因为您的 R 版本过旧，或者您需要加载某个包来提供 predict 函数的扩展功能。请确认您的 R 版本，并尝试加载 psych 包（该包提供了 predict.fa 函数，用于处理 factanal 对象）。您可以使用以下代码加载 psych 包：

library(psych)
fa1_scores <- as.matrix(predict.fa(fa1, who_data))