z<-c(1.00, 0.59, 0.35, 0.34, 0.63, 0.40, 0.28, 0.20, 0.11,-0.07,
+      0.59, 1.00, 0.42, 0.51, 0.49, 0.52, 0.31, 0.36, 0.21, 0.09,
+      0.35, 0.42, 1.00, 0.38, 0.19, 0.36, 0.73, 0.24, 0.44,-0.08,
+      0.34, 0.51, 0.38, 1.00, 0.29, 0.46, 0.27, 0.39, 0.17, 0.18,
+      0.63, 0.49, 0.19, 0.29, 1.00, 0.34, 0.17, 0.23, 0.13, 0.39,
+      0.40, 0.52, 0.36, 0.46, 0.34, 1.00, 0.32, 0.33, 0.18, 0.00,
+      0.28, 0.31, 0.73, 0.27, 0.17, 0.32, 1.00, 0.24, 0.34,-0.02,
+      0.20, 0.36, 0.24, 0.39, 0.23, 0.33, 0.24, 1.00, 0.24, 0.17,
+      0.11, 0.21, 0.44, 0.17, 0.13, 0.18, 0.34, 0.24, 1.00,-0.00,
+      -0.07,0.09,-0.08, 0.18, 0.39, 0.00,-0.02, 0.17,-0.00, 1.00)
> R<-matrix(z,nrow=10)
> fa<-factanal(R,factors=2,scores="Bartlett",rotation="varimax");fa$scores
错误于solve.default(cv) : 系统计算上是奇异的: 倒条件数=2.62491e-18