nrows循环缺少TRUE / FALS？

Question

对于总共n行，不会发生此循环，如果我更改为for i in 2:1000，则没有错误。我应该改变什么？

calculos_ord<-calculos[with(calculos, order(id_client,timestamp)),]
n_linhas=nrows(calculos_ord)
n_colunas=ncol(calculos_ord)
rownames(calculos_ord) = 1:n_linhas


for(i in 2:n_linhas){
  if(is.na(calculos_ord$consumo_rede[i])){
    if(calculos_ord$consumo_rede[i-1]>0 & calculos_ord$consumo_rede[i+1]>0){
      calculos_ord$consumo_rede[i]<-(calculos_ord$consumo_rede[i+1]+calculos_ord$consumo_rede[i-1])/2
    }