R语言循环问题

求教各位大神！问题是这样的，我有一列数据向量num和一个列表数据id，列表数据中各变量长度不相同。我想将列表中各变量数据中出现过num值的项剔除掉。运行程序总出现这个错误Error in id[[j]] : subscript out of bounds。
求问应该怎么改？或者有什么更好的办法可以解决么？
程序如下：

1. num <- c(21,39,56,75,104,125,139,204,222,238,254,281,314,332,361)
   
2. id <- list(c(1:22),c(34:89),c(100:200),c(200:400))
   
3. for (i in num) {
   
4.   for (j in 1:length(id)) {
   
5.     x <- c(match(i,id[[j]]))
   
6.     if(is.numeric(x)) {
   
7.       id<-id[[j]][-x]
   
8.     }
   
9.   }
   
10. }

复制代码

1. lapply(id, function(x) x[! (x %in% num)])

复制代码

qoiqpwqr 发表于 2014-11-27 19:14

谢谢！

学习学习