data931 <- read.csv("Table931SDdata.csv")
data931

attach(data931)

data <- data931[3:13]
data

detach(data931)
attach(data)

​

#因子分析の結果から、３因子のデータを別に取り出す

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) # 逆転項目を考慮する：check.keys=TRUE
alpha(f2,check.keys=TRUE)
alpha(f3,check.keys=TRUE)