# LR-test on dichotomous Rasch model with user-defined split
splitvec <- sample(1:3, 100, replace = TRUE)
data(raschdat1, splitcr = splitvec)
res <- RM(raschdat1)
lrres <- LRtest(res)
lrres
summary(lrres)
plotGOF(lrres)
Run the code above in your browser using DataLab