mySys1 <- ConQuestSys()
mySys2 <- ConQuestSys()
mySysList <- list(mySys1, mySys2)
myDifDf <- sysToItemDifDf(mySysList, mySuffixes = c("_male", "_female"), myDims = "all")
myDifPlot <- plotDif (myDifDf,myScale = "centred", mySuffixes = c("_male", "_female"))
if (FALSE) {
# if you run the above example you will have the plot in the object `myDifPlot`.
plot(myDifPlot)
}
Run the code above in your browser using DataLab