# NOT RUN {
# loading data based on GMAT
data(GMAT)
Data <- GMAT[, 1:20]
group <- GMAT[, "group"]
# testing both DIF effects using likelihood-ratio test and
# 3PL model with fixed guessing for groups
(x <- difNLR(Data, group, focal.name = 1, model = "3PLcg"))
# graphical devices
plot(x)
plot(x, item = x$DIFitems)
plot(x, plot.type = "stat")
# }
Run the code above in your browser using DataLab