admin が に投稿
R

データセット取り込み

データはExcel関数 Rand()*10 で作成しました。
少数第1位四捨五入。

🔗

 

fa

 

Rcmdr

 

Rcmdr

 

Rcmdr

 

Rcmdr

 

Console 表示

Rcmdr>  local({
Rcmdr+    .FA <- factanal(~V2+V3+V4+V5+V6+V7, factors=2, rotation="promax", 
Rcmdr+    scores="regression", data=因子分析)
Rcmdr+    print(.FA)
Rcmdr+    因子分析 <<- within(因子分析, {
Rcmdr+      F2 <- .FA$scores[,2]
Rcmdr+      F1 <- .FA$scores[,1]
Rcmdr+    })
Rcmdr+  })

Call:
factanal(x = ~V2 + V3 + V4 + V5 + V6 + V7, factors = 2, data = 因子分析,     scores = "regression", rotation = "promax")

Uniquenesses:
   V2    V3    V4    V5    V6    V7 
0.976 0.226 0.890 0.894 0.005 0.657 

Loadings:
   Factor1 Factor2
V2  0.156         
V3 -0.886         
V4  0.336         
V5  0.175   0.314 
V6          0.997 
V7  0.514  -0.194 

               Factor1 Factor2
SS loadings      1.217   1.135
Proportion Var   0.203   0.189
Cumulative Var   0.203   0.392

Factor Correlations:
        Factor1 Factor2
Factor1   1.000  -0.209
Factor2  -0.209   1.000

Test of the hypothesis that 2 factors are sufficient.
The chi square statistic is 0.81 on 4 degrees of freedom.
The p-value is 0.938 
RcmdrMsg: [5] メモ: データセット 因子分析 には 15 行、9 列あります.

 

Rcmdr

 

Rcmdr

 

Rcmdr