# Martin-Loef-test on dichotomous Rasch model using "median" and a user-defined
# split vector. Note that group indicators can be of character and/or numeric.
splitvec <- c(1, 1, 1, "x", "x", "x", 0, 0, 1, 0)
res <- RM(raschdat1[,1:10])
MLoef_1 <- MLoef(res, splitcr = "median")
MLoef_1
MLoef_2 <- MLoef(res, splitcr = splitvec)
summary(MLoef_2)
Run the code above in your browser using DataLab