## Not run:
# data(iqitems)
# iq.keys <- c(4,4,4, 6, 6,3,4,4, 5,2,2,4, 3,2,6,7)
# score.multiple.choice(iq.keys,iqitems) #this just gives summary statisics
# #convert them to true false
# iq.scrub <- scrub(iqitems,isvalue=0) #first get rid of the zero responses
# iq.tf <- score.multiple.choice(iq.keys,iq.scrub,score=FALSE)
# #convert to wrong (0) and correct (1) for analysis
# describe(iq.tf)
# #see the ability data set for these analyses
# #now, for some item analysis
# #iq.irt <- irt.fa(iq.tf) #do a basic irt
# #iq.sc <-score.irt(iq.irt,iq.tf) #find the scores
# #op <- par(mfrow=c(4,4))
# #irt.responses(iq.sc[,1], iq.tf)
# #op <- par(mfrow=c(1,1))
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace