Отсутствует TRUE / FALS для цикла nrows?

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
    }