为什么循环不插入值？

Question

这是数据集https://www.dropbox.com/s/mcukuvpnrqrtgfd/datasetfirm.csv?dl=0的链接。我尝试使用i + 1和i-1，i-2来查找滞后和超前的数据集。得到结果时，我看到i-1和i-2运作良好，但是，对于i + 1来说没有结果。

这是我使用的代码

datasetfirm<-read.csv("path")
datasetfirm<-datasetfirm[-1]


for (i in 1:nrow(datasetfirm)) {
  if (datasetfirm[i,4]==1){

    datasetfirm[i+1,5]<-55
    datasetfirm[i,5]<-1  
    datasetfirm[i-1,5]<-1
    datasetfirm[i-2,5]<-1


  }else{datasetfirm[i,5]<-7}

}

预期结果是第5列中从3到6的行应等于1，而使用此代码时，只有3到5的行是1。