Open KaPerozo opened 9 years ago
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]) }
Los coeficientes deberian dar positivos ? , pero dan negativos.
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]) }