# NOT RUN {
# Loading of the verbal data
data(verbal)
# Testing uniform DIF with all items
sibTest(verbal[,1:24], verbal[,26])
# Testing nonuniform DIF with all items
sibTest(verbal[,1:24], verbal[,26], type = "nudif")
# Removing item 6 from the set of anchor items
sibTest(verbal[,1:24], verbal[,26], anchor = c(1:5, 7:24))
# Considering items 3 to 9 as the set of anchor items
sibTest(verbal[,1:24], verbal[,26], anchor = 3:9)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab