# NOT RUN {
# Loading data based on GMAT
data(GMATtest, GMATkey)
Data <- GMATtest[, 1:20]
group <- GMATtest[, "group"]
key <- GMATkey
# Testing both DDF effects
(x <- ddfMLR(Data, group, focal.name = 1, key))
# Graphical devices
plot(x, item = "Item1", group.names = c("Group 1", "Group 2"))
plot(x, item = x$DDFitems)
plot(x, item = 1)
# }
Run the code above in your browser using DataLab