第１２回　因子分析（２）

​

直交回転と斜交回転
　　　斜交回転とは？
　　　　（主因子解・プロマックス回転）

​

因子分析と主成分分析
　　　共通因子を見つける
　　　合成変数として集約

​

因子分析の後に
　尺度の信頼性の検討
　α係数（アルファ係数）の算出

​

参考　小塩研究室（早稲田大学）
　９　因子分析を使いこなす
               何度も行う               

　　　　因子分析の後に
課題
SD法データ（Table 931）
　因子　⇒　下位尺度
α係数をもとめる

Rによる実行

SDfa <- factanal(data,factors=3,rotation,scores="regression")
SDfa

SDfa$scores
SDfa$correlation

 

f1 <- cbind(JimiHade,NibuiSurudoi,SizukaSawagasii,YoukiInnki,DoutekiSeiteki)
f2 <- cbind(AkaruiKurai,KinntyoYurui,KaruiOmoi)
f3 <- cbind(KitanaiUtsukusi,SukiKirai,WaruiYoi)

f1
f2
f3

​

library(psych)     # psych パッケージの読み込み

alpha(f1,check.keys=TRUE) 
alpha(f2,check.keys=TRUE)
alpha(f3,check.keys=TRUE)

​

​

--

復習課題

　ある心理療法の効果を調べるために，5人の被験者にその療法を実施する前と後で同じ検査を実施して検査得点が上がるかどうかを検討した。

　療法実施の前（事前）と後（事後）の検査得点の平均値と標準偏差を求め、検定を行いなさい。

​

事前事後デザイン

​

心理療法実施前後の検査得点  

      被験者    事前    事後

　　1   　　　 13    14

　　2    　　　14    21

　　3    　　　11    13

　　4    　　　19    24

　　5    　　　15    17

　平均値  

　標準偏差

​

​

ランダム化比較試験

この実験計画を改善した。実験群と合わせて、検定を行いなさい。

​

統制群の結果（検査得点）        

　　被験者    事前    事後

　　6    　　　14    14

　　7   　　　 13    14

　　8   　　　 12    13

　　9   　　　 18    16

　　10    　  　16    15

平均値        

標準偏差        

​

​