# 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"))
# Characteristic curves
plot(x)
plot(x, item = x$DIFitems)
plot(x, item = 1)
plot(x, item = "Item1")
# Characteristic curves without empirical probabilities
plot(x, item = 1, draw.empirical = FALSE)
# Characteristic curves without empirical probabilities but with CI
plot(x, item = 1, draw.empirical = FALSE, draw.CI = TRUE)
# Graphical devices - test statistics
plot(x, plot.type = "stat")
# }
Run the code above in your browser using DataLab