> data=read.csv(file.choose(),header=T)
> data
     ID class score
1     1     1    44
2     2     1    53
3     3     1    90
.
.
.
281 281     4    68
282 282     4    78
283 283     4    77
284 284     4    54
285 285     4    45
286 286     4    85
> class=numeric()
> for(i in 1:4){class[i]=data[which(data[,2]==i),]}
Warning messages:
1: In class[i] <- data[which(data[, 2] == i), ] :
  被替换的项目不是替换值长度的倍数
2: In class[i] <- data[which(data[, 2] == i), ] :
  被替换的项目不是替换值长度的倍数
3: In class[i] <- data[which(data[, 2] == i), ] :
  被替换的项目不是替换值长度的倍数
4: In class[i] <- data[which(data[, 2] == i), ] :
  被替换的项目不是替换值长度的倍数
>


就是我想用for循环将每个班级的信息建成一个新的数据
但是遇到了这种情况，请问怎么解决呢？

我想的结果是 我输入  class  运行之后
就会显示
class
[1]
1     1     1    44
2     2     1    53
3     3     1    90
.
.
.
[2]
.
.
.
这样