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

Question

我的脚本中有错误。

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

输出将是这样的：

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

有人可以帮助我吗？