if (FALSE) {
# loading data
data(GMAT)
Data <- GMAT[, 1:20] # items
group <- GMAT[, "group"] # group membership variable
# 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"))
# fitted values
fitted(x)
fitted(x, item = 1)
fitted(x, item = x$DIFitems)
# residuals
residuals(x)
residuals(x, item = 1)
residuals(x, item = x$DIFitems)
}
Run the code above in your browser using DataLab