# NOT RUN {
# Loading data
data(dataMedicalgraded, package = "ShinyItemAnalysis")
Data <- dataMedicalgraded[, 1:5]
group <- dataMedicalgraded[, 101]
# Testing both DIF effects with adjacent category logit model
(x <- difORD(Data, group, focal.name = 1, model = "adjacent"))
# Graphical devices
plot(x, item = 3)
plot(x, item = "X2003", group.names = c("Group 1", "Group 2"))
# Testing both DIF effects with cumulative logit model
(x <- difORD(Data, group, focal.name = 1, model = "cumulative"))
plot(x, item = 3, plot.type = "cumulative")
plot(x, item = 3, plot.type = "category")
# }
Run the code above in your browser using DataLab