提取心理包的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