# the object used is the result of running RM(raschdat1)
res <- raschdat1_RM_fitted # see ? raschdat1_RM_fitted
if (FALSE) {
# LR-test on dichotomous Rasch model with user-defined split
splitvec <- rep(1:2, each = 50)
lrres <- LRtest(res, splitcr = splitvec)
# LR-test with mean split
lrres2 <- LRtest(res, split = "mean")
# combination of LRtest-objects in a list
RMplotCI <- list(lrres, lrres2)}
# the object raschdat1_RM_plotDIF is the result of the computations outlined
# above and is loaded to save computation time. see ?raschdat1_RM_plotDIF
RMplotCI <- raschdat1_RM_plotDIF
# Confidence intervals plot with default assumptions
plotDIF(RMplotCI)
# Confidence intervals plot with Bonferroni correction
plotDIF(RMplotCI, gamma = (1 - (0.05/10)))
# Confidence intervals plot for an item subset
plotDIF(RMplotCI, item.subset = 1:6)
# with user defined group color and legend
plotDIF(RMplotCI, col = c("red", "blue"), leg = TRUE, legpos = "bottomright")
# with names for the splitobjects
plotDIF(RMplotCI, col = c("red", "blue"), leg = TRUE, legpos = "bottomright",
splitnames = c(paste("User", 1:2), paste(rep("Mean", 2), 1:2)))
Run the code above in your browser using DataLab