$$P_{vi}(a \leq X \leq b) = \frac{\int_a^b exp[x \mu + x(2c-x) \theta] dx}{\int_{c-\frac{d}{2}}^{c+\frac{d}{2}} exp[t \mu + t(2c-t) \theta] dt}$$
Parameters are estimated by a pairwise algorithm.
CRSM(data, start, min, max)## S3 method for class 'CRSM':
summary(object, \dots)
## S3 method for class 'CRSM':
print(x, \dots)
CRSM
CRSM
}Mueller, H. (1999). Probabilistische Testmodelle fuer diskrete und kontinuierliche Ratingskalen. [Probabilistic models for discrete and continuous rating scales]. Bern: Huber.
#estimate CRSM item parameters
data(example1)
res_crsm <- CRSM(example1, min=0, max=1)
summary(res_crsm)
Run the code above in your browser using DataLab