# NOT RUN {
# loading 100-item medical admission test dataset
data(dataMedicaltest, dataMedicalkey)
data <- dataMedicaltest[, 1:100]
dataBin <- dataMedical[, 1:100]
key <- unlist(dataMedicalkey)
# distractor analysis for dataMedicaltest dataset
DistractorAnalysis(data, key)
# }
# NOT RUN {
# distractor analysis for dataMedicaltest dataset with proportions
DistractorAnalysis(data, key, p.table = TRUE)
# distractor analysis for dataMedicaltest dataset for 6 groups
DistractorAnalysis(data, key, num.group = 6)
# distractor analysis for dataMedicaltest using specified criterion
criterion <- round(rowSums(databin), -1)
DistractorAnalysis(data, key, criterion = criterion)
# distractor analysis for dataMedicaltest using discrete criterion
DistractorAnalysis(data, key, criterion = criterion, crit.discrete = TRUE)
# distractor analysis for dataMedicaltest using groups specified by cut.points
DistractorAnalysis(data, key, cut.points = seq(10, 100, 10))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab