setwd("C:/Users/Administrator/Desktop/IRT")
>

> m<- read.table(file = "PM.csv",header = TRUE,sep = ",",fileEncoding = "UTF-8-BOM",check.names=T)

> as.data.frame(m)
   T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 T17 T18 T19 T20 T21 T22 T23 T24 T25 T26
1   6  6  4  6  6  6  6  1  6   1   7   1   6   1   7   6   7   6   6   6   6   6   6   6   1   6
2   5  6  5  4  6  5  6  3  6   2   7   3   7   3   7   6   7   6   7   7   7   5   7   6   2   7
3   5  5  3  7  5  6  5  3  4   2   6   5   5   2   5   6   7   5   6   6   6   4   5   5   2   6
4   6  6  6  5  6  6  6  6  5   6   6   6   6   6   6   6   6   6   6   5   5   5   6   6   5   6
5   7  7  7  7  7  5  5  5  5   5   5   5   5   5   5   5   5   6   5   5   5   5   5   5   5   5
6   6  7  6  7  6  7  7  1  7   2   7   1   7   1   7   7   6   6   6   7   7   7   7   7   7   7
7   5  4  4  4  4  4  4  4  3   4   4   4   4   5   4   3   5   4   4   4   4   4   4   4   4   4
8   4  5  3  6  6  6  3  3  6   4   3   5   5   2   4   3   5   5   6   6   3   3   3   6   3   3
9   6  6  5  6  7  7  6  1  7   1   6   1   7   1   7   7   7   7   7   7   7   7   7   7   1   7
10  7  1  6  7  1  7  7  4  7   1   7   1   7   4   7   7   7   6   7   7   7   7   7   7   1   7
11  7  7  7  7  7  7  7  1  7   1   7   1   7   1   7   7   7   1   7   7   7   7   7   7   7   7
12  5  3  4  6  5  6  3  2  6   2   6   3   6   3   5   5   5   2   5   6   5   5   6   7   2   6
13  6  6  6  6  6  6  6  2  6   2   6   2   6   2   6   6   6   6   6   6   6   6   6   6   2   6
14  4  5  4  5  5  5  4  5  5   3   5   5   5   5   5   5   5   5   5   6   5   5   6   6   6   6
15  4  6  4  6  5  6  6  4  5   1   5   2   6   1   6   6   6   5   5   6   5   3   6   6   4   5
16  4  5  5  6  4  4  4  2  5   3   3   5   5   5   5   6   5   6   5   6   5   4   3   6   5   5
17  5  5  5  5  5  5  5  3  5   3   5   3   5   3   5   6   6   6   6   6   6   6   6   6   2   6
18  3  7  3  6  6  6  6  6  6   1   6   3   3   3   6   6   6   6   6   6   6   6   6   6   2   6
19  3  5  5  5  5  5  5  3  5   1   7   2   5   1   7   7   7   7   7   7   7   1   7   7   1   7
20  6  4  4  5  6  5  5  5  5   2   4   2   5   5   5   4   5   5   5   6   5   5   5   5   5   5
21  3  6  5  6  6  6  5  5  5   3   5   2   6   2   5   5   6   6   6   6   6   6   6   6   3   2
22  3  5  6  7  5  6  4  7  4   2   4   5   4   5   4   5   5   5   5   5   5   5   5   5   4   5
23  7  7  6  7  7  7  7  1  7   1   7   1   7   1   7   7   7   7   7   7   7   7   7   7   1   7
24  6  7  6  7  7  7  7  2  7   1   7   2   7   1   7   7   7   7   6   7   7   7   7   7   7   7
25  5  1  5  1  5  7  7  1  7   1   7   1   7   1   7   5   5   5   5   7   7   7   7   7   2   7
26  4  6  4  4  5  3  5  3  5   2   3   4   5   2   5   5   6   4   5   6   6   4   6   6   3   6
27  3  3  5  5  6  3  5  4  6   5   5   3   6   2   6   4   7   3   6   5   6   5   5   6   2   5
28  5  6  6  7  7  7  7  1  7   1   7   1   7   1   7   6   7   6   7   7   7   6   6   7   1   7
29  5  5  5  5  5  5  5  5  5   3   5   3   5   3   5   5   5   5   5   5   5   3   5   5   3   5

> res<- RSM(m)
Warning:
The following items have no 0-responses:
T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 T17 T18 T19 T20 T21 T22 T23 T24 T25 T26
Responses are shifted such that lowest category is 0.
Error in datprep_RSM(X, W, sum0) :
  RSM can not be computed since number of categories are not the same for each item!
有大神知道为什么会出现这样的情况啊，在数据框里面检查没问题，数据类型，class是“data.frame”，mode是“list”，typeof是“list”。为什么对不上呢？谢谢~~~