$$P_{vih} = \frac{exp(\theta_{vh} + \beta_{ih})}{\sum_{j=0}^{m} exp(\theta_{vj} + \beta_{ij})}$$
Parameters are estimated by CML method.
MPRM(data, desmat, start)## S3 method for class 'MPRM':
summary(object, \dots)
## S3 method for class 'MPRM':
print(x, \dots)
MPRM
MPRM
}optim
)optim
)Fischer, G. H. (1974). Einfuehrung in die Theorie psychologischer Tests [Introduction to test theory]. Bern: Huber.
Rasch, G. (1961). On general laws and the meaning of measurement in psychology, Proceedings Fourth Berekely Symposium on Mathematical Statistiscs and Probability 5, 321-333.
#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)
summary(res_mprm)
Run the code above in your browser using DataLab