R等价比较中的错误：缺少需要TRUE / FALSE的值

Question

我的脚本出错了。

我有一个death_year column的数据框（值介于2000和2013之间），我想填充另一列的单元格（year_X - X为2000到2013之间的值），值为1如果是death_year == year_X。

outut就是这样的：

death_year  year_2000 year_2001 year_2002
[1]  2000           1        0         0
[2]  2002           0        0         1
[3]  2009           0        0         0

那是我的剧本：

a<-vector("numeric")

for(i in data$death_year){
  for(j in 2000:2013){
    if(i == j){
      for(c in 1:length(data)){
          data[c,paste( 'year', j, sep="" )]==1
    }
  }
}

Error in if (i == j) { : missing value where TRUE/FALSE needed

有人能帮助我吗？