#行の中で、「#」以降は、コメントアウトで処理しません。

#====================================================

#psychパッケージの読み込み（事前にpsychパッケージのインストールが必要）

library(psych)

#psyパッケージの読み込み（事前にpsyパッケージのインストールが必要）

library(psy)

#Cドライブにv04dataというフォルダを作り、v04c1test.csvを置いているという設定

#データの読み込み

setwd("c:/v04data")

data=read.table("v04c1test.csv",header=T,sep=",",row.names=1)

#正答率

colMeans(data)

#識別力(IT相関)

total <- rowSums(data)

ITcor <- cor(data,total)

ITcor

#識別力(IR相関)

IRcor <- numeric(ncol(data))

for(i in 1:ncol(data))

{

IRcor[i] <- cor(data[i],total-data[,i])

}

IRcor

#不適合項目削除（識別力の低い項目8と12を削除）

data2 <- data[,c(-8,-12)]

#α係数

cronbach(data2)

#各項目を削除した時のα係数

alphaM <- numeric(ncol(data2))

for(i in 1:ncol(data2))

{

alphaM[i] <- cronbach(data2[-i])$alpha

}

alphaM

#====================================================

#2015.11.08 熊谷龍一・荘島宏二郎