#Wald test for Rasch model with user-defined subject split
data(raschdat2)
res <- RM(raschdat2)
splitvec <- sample(1:2,25,replace=TRUE)
Waldtest(res, splitcr = splitvec)
#Wald test for RSM eliminates 4 items (with median split)
data(rsmdat)
res <- RSM(rsmdat)
Waldtest(res)
Run the code above in your browser using DataLab