# NOT RUN {
#simulate data set
simdat <- simMPRM(rbind(matrix(c(-1.5,0.5,0.5,1,0.8,-0.3, 0.2,-1.2),
ncol=4),0), 500)
#estimate MPRM item parameters
res_mprm <- MPRM(simdat$datmat)
#compute Andersen's Likelihood Ratio test
res_lrt <- LRT(res_mprm)
summary(res_lrt)
# }
Run the code above in your browser using DataLab