Data <- dataMedicaltest[, 1:100]
Databin <- dataMedical[, 1:100]
key <- dataMedicalkey
# distractor analysis for all items
DistractorAnalysis(Data, key)
# distractor analysis for item 1
DistractorAnalysis(Data, key, item = 1)
if (FALSE) {
# distractor analysis with proportions
DistractorAnalysis(Data, key, p.table = TRUE)
# distractor analysis for 6 groups
DistractorAnalysis(Data, key, num.group = 6)
# distractor analysis using specified criterion
criterion <- round(rowSums(Databin), -1)
DistractorAnalysis(Data, key, criterion = criterion)
# distractor analysis using discrete criterion
DistractorAnalysis(Data, key, criterion = criterion, crit.discrete = TRUE)
# distractor analysis using groups specified by cut.points
DistractorAnalysis(Data, key, cut.points = seq(10, 96, 10))
}
Run the code above in your browser using DataLab