data(KCT)
dim(KCT)
############# some item calibrations ###############
data(KCT)
IP_pair <- pair(daten = KCT[,4:17], m = 2)
summary(IP_pair)
####################################################
####################################################
#########MIKE error message never received##########
####################################################
####################################################
Run the code above in your browser using DataLab