# Example 1. Compute expected sum score values for the
# short SweSAT multiple choice test with 24 items and 1000 examinees
scoreList <- Quant_13B_problem_dataList$scoreList
SfdList <- Quant_13B_problem_parmList$SfdList
index <- Quant_13B_problem_parmList$index
muvec <- mu(index, SfdList, scoreList)
par(c(1,1))
hist(muvec,11)
Run the code above in your browser using DataLab