setwd("D:\\")
library("CTT")
library("TAM")
d1<-read.csv("h2.csv",header = T)
mykey<-c(4,2,4,1,1,1,2,3,3,2,
         3,4,4,4,4,1,3,3,2,3,
         3,3,2,1,1,2,2,3,2,4,
         4,2,1,1,3,4,3,2,2,2)
 
 
 
 
myScore=score(d1,mykey,output.scored = T)
score<-data.frame(myScore$scored)
my1PL<-tam(myScore$scored)
myCTT<-itemAnalysis(myScore$scored)
write.csv(myCTT$itemReport,"h2_result.csv")
 
 
 
par(mai=c(0.1,0.1,0.1,0.1),mfrow=c(8,5))
for (i in 1:40) {
  plot(my1PL,item=i)  
}
 

c2V0d2QoIkQ6XFwiKQpsaWJyYXJ5KCJDVFQiKQpsaWJyYXJ5KCJUQU0iKQpkMTwtcmVhZC5jc3YoImgyLmNzdiIsaGVhZGVyID0gVCkKbXlrZXk8LWMoNCwyLDQsMSwxLDEsMiwzLDMsMiwKICAgICAgICAgMyw0LDQsNCw0LDEsMywzLDIsMywKICAgICAgICAgMywzLDIsMSwxLDIsMiwzLDIsNCwKICAgICAgICAgNCwyLDEsMSwzLDQsMywyLDIsMikKCiAgICAgICAgIAogICAgICAgICAKCm15U2NvcmU9c2NvcmUoZDEsbXlrZXksb3V0cHV0LnNjb3JlZCA9IFQpCnNjb3JlPC1kYXRhLmZyYW1lKG15U2NvcmUkc2NvcmVkKQpteTFQTDwtdGFtKG15U2NvcmUkc2NvcmVkKQpteUNUVDwtaXRlbUFuYWx5c2lzKG15U2NvcmUkc2NvcmVkKQp3cml0ZS5jc3YobXlDVFQkaXRlbVJlcG9ydCwiaDJfcmVzdWx0LmNzdiIpCgoKCnBhcihtYWk9YygwLjEsMC4xLDAuMSwwLjEpLG1mcm93PWMoOCw1KSkKZm9yIChpIGluIDE6NDApIHsKICBwbG90KG15MVBMLGl0ZW09aSkgIAp9Cg==