suppressPackageStartupMessages({
library(eRm)
})
rsm.res <- RSM(rsmdat)
thresholds(rsm.res)
#>
#> Design Matrix Block 1:
#> Location Threshold 1 Threshold 2 Threshold 3
#> I1 0.02202 -0.02395 -0.19134 0.28135
#> I2 0.35112 0.30515 0.13776 0.61045
#> I3 0.30183 0.25586 0.08847 0.56116
#> I4 0.11328 0.06731 -0.10009 0.37261
#> I5 -0.11417 -0.16013 -0.32753 0.14517
#> I6 -0.39828 -0.44424 -0.61164 -0.13894
par(mfrow = c(2,2))
plotICC(rsm.res)


Created on 2021-01-05 by the reprex package (v0.3.0.9001)