# Example 1. Display the initial probability and surprisal curves for the
# first item in the short SweSAT multiple choice test with 24 items and
# 1000 examinees.
# Note: The scope is 0 at this point because it is computed later
# in the analysis.
dataList <- Quant_13B_problem_dataList
index <- dataList$percntrnk
# Carry out the surprisal smoothing operation
SfdResult <- Sbinsmth(index, dataList)
if (FALSE) {
# Set up the list object for the estimated surprisal curves
SfdList <- SfdResult$SfdList
# The five marker percentage locations for (5, 25, 50, 75, 95)
binctr <- dataList$binctr
Qvec <- dataList$PcntMarkers
# plot the curves for the first question
scrfine <- seq(0,100,len=101)
ICC_plot(scrfine, SfdList, dataList, Qvec, binctr,
data_point = TRUE, plotType = c("S", "P"),
Srng=c(0,3), plotindex=1)
}
Run the code above in your browser using DataLab