#
# Example 1. Display the arc length curve for the
# SweSAT multiple choice test with 24 items and 1000 examinees
#
infoSurpvec <- Quant_13B_problem_infoList$infoSurpvec
infoSurp <- Quant_13B_problem_infoList$infoSurp
oldpar <- par(no.readonly=TRUE)
Scope_plot(infoSurp, infoSurpvec)
on.exit(oldpar)
Run the code above in your browser using DataLab