#Person parameter estimation of a rating scale model
data(rsmdat)
res <- RSM(rsmdat)
pres <- person.parameter(res)
print(pres)
summary(pres)
plot(pres)
#Person parameter estimation for a Rasch model with missing values and
#witout spline interpolation.
data(raschdat1)
raschNA <- raschdat1
raschNA[1:40,1] <- NA #first item not presented
raschNA[41:100,2] <- NA #second item not presented
res <- RM(raschNA, se = FALSE) #Rasch model without standard errors
pres <- person.parameter(res, splineInt = FALSE)
print(pres) #person parameteres round to 5 digits
summary(pres)
Run the code above in your browser using DataLab