¿Podríamos ponernos un ejemplo replicable en nuestras máquinas?

Personalmente creo que estas obteniendo un NA cuando obtienes auxiliar.

De todas maneras a mi cuando me falla un bucle lo que hago es:
Poner ordenes como print(i) en el bucle, para ver donde tienes el fallo.
O correr lo que he llamando "Ordenes para detectar fallos"

#------------------------------------------------------------------------------------------------------
# Ejemplo de bucle
#------------------------------------------------------------------------------------------------------
DD <- rbind(mtcars,
            rep(x=NA,11), mtcars )
rownames(DD)[33] <- "FALLO"
rownames(DD) # EN la 33 le pongo nombre Fallo que es lo que va a salir

for(i in 1:dim(DD)[1]){
  print(i)
  if(DD$mpg[i]>0){
    print( rownames(DD)[i] )
  }

}






#------------------------------------------------------------------------------------------------------
# Ordenes para detectar fallos
#------------------------------------------------------------------------------------------------------
i<- 1


# corre el programa varias veces
i<- i +1

# Cuerpo del bucle
  print(i)
  if(DD$mpg[i]>0){
    print( rownames(DD)[i] )
  }
# Fin del bucle

	[[alternative HTML version deleted]]

