# Example 1. Display the item surprisal curves for the
# short SweSAT multiple choice test with 24 items and 1000 examinees
dataList <- Quant_13B_problem_dataList
SfdList <- Quant_13B_problem_parmList$SfdList
Qvec <- Quant_13B_problem_parmList$Qvec
binctr <- Quant_13B_problem_parmList$binctr
infoSurpvec <- Quant_13B_problem_infoList$infoSurpvec
Qinfovec <- Quant_13B_problem_infoList$Qinfovec
bininfoctr <- Quant_13B_problem_infoList$bininfoctr
titlestr <- "Quant_13B_problem"
# plot the curves for the first question over the score index
oldpar <- par(no.readonly=TRUE)
indfine <- seq(0,100,len=101)
ICC_plot(indfine, SfdList, dataList, Qvec, binctr,
data_point = TRUE, plotType = c("S", "P"),
Srng=c(0,4), plotindex=1)
# plot the curves for the first question over test information
ICC_plot(infoSurpvec, SfdList, dataList, Qinfovec, bininfoctr,
data_point = TRUE, plotType = c("S", "P"),
Srng=c(0,4), plotindex=1)
par(oldpar)
Run the code above in your browser using DataLab