# Example 1. Display the item power curves for the
# short SweSAT multiple choice test with 24 items and 1000 examinees
# plot the power curve for the first item
dataList <- Quant_13B_problem_dataList
SfdList <- Quant_13B_problem_parmList$SfdList
Qvec <- Quant_13B_problem_parmList$Qvec
scrfine <- seq(0,100,len=101)
oldpar <- par(no.readonly=TRUE)
Power_plot(scrfine, SfdList, Qvec, dataList, plotindex=1)
par(oldpar)
Run the code above in your browser using DataLab