library(IRTpp) a<-simulateTest(model="2PL",items=10,individuals=2000) b<-a$test[[1]] a$test cronbach(b) c<-rowSums(b) biserial.cor(c,b[,7]) AA <- NULL for(i in 1:10){ AA[i]<-biserial.cor(c,b[,i]) }
library(IRTpp)
a<-simulateTest(model="2PL",items=10,individuals=2000)
b<-a$test[[1]]
a$test
cronbach(b)
c<-rowSums(b)
biserial.cor(c,b[,7])
AA <- NULL
for(i in 1:10){
AA[i]<-biserial.cor(c,b[,i])
}