今天补上之前分享的：rating scale model的代码，欢迎下载学习（R语言）：
library(eRm)
res <- RSM(rsmdat)
res
summary(res)                            #eta and beta parameters with CI
thresholds(res)                         #threshold parameters

p.res <- person.parameter(res)          #calculate person parameter

# Matrix with expected probabilities and corresponding residuals
pmat(p.res)
residuals(p.res)#calculate the residual

#Itemfit
itemfit(p.res)

#Personfit
personfit(p.res)

# Compute Separation Reliability for a Rating Scale Model:
res1 <- SepRel(p.res)
res1
summary(res1)

#Calculate Test Information
tinfo <- test_info(res)

# how to use the plot :if you want to see the next,click the mouse will chage the plot
plotICC(res)
plotINFO(res,type="test")
plotPImap(res, sorted=TRUE)