提取心理包的fa.poly函数中因子的相关矩阵

Question

我从工作狞的很好的例子进行关于二分类数据的因素分析，现在我挣扎着从所生产的对象中提取的因素psych包的fa.poly功能。

谁能帮助我从fa.poly对象中提取因子（并查看相关性）？

请参阅caracal的工作示例示例。

Answer 1

在此示例中，您将创建一个对象：

faPCdirect <- fa.poly(XdiNum, nfactors=2, rotate="varimax")    # polychoric FA

所以在faPCdirect的某个地方有你想要的东西。 我建议使用str()来检查faPCdirect的结构

> str(faPCdirect)

List of 5
 $ fa   :List of 34
  ..$ residual    : num [1:6, 1:6] 4.79e-01 7.78e-02 -2.97e-0...
  .. ..- attr(*, "dimnames")=List of 2
  .. .. ..$ : chr [1:6] "X1" "X2" "X3" "X4" ...
  .. .. ..$ : chr [1:6] "X1" "X2" "X3" "X4" ...
  ..$ dof         : num 4
  ..$ fit      
      ...skip stuff....
  ..$ BIC         : num 4.11
  ..$ r.scores    : num [1:2, 1:2] 1 0.0508 0.0508 1
  .. ..- attr(*, "dimnames")=List of 2
  .. .. ..$ : chr [1:2] "MR2" "MR1"
  .. .. ..$ : chr [1:2] "MR2" "MR1"
  ..$ R2          : Named num [1:2] 0.709 0.989
  .. ..- attr(*, "names")= chr [1:2] "MR2" "MR1"
  ..$ valid       : num [1:2] 0.819 0.987
  ..$ score.cor   : num [1:2, 1:2] 1 0.212 0.212 1

所以这说明这个对象是一个五个列表，第一个元素叫做fa ，它包含一个名为score.cor的元素，它是一个2x2矩阵。 我想你想要的是偏离对角线。

> faPCdirect$fa$score.cor
          [,1]      [,2]
[1,] 1.0000000 0.2117457
[2,] 0.2117457 1.0000000