Saludos.
Lo he modificado tal como indicas haciendo que i vaya de 1 a 5728, y ya no da error. Muchísimas gracias no sabes lo que te lo agradezco, el código es para generar el grado de cada nodo de una serie temporal transformada en un grafo de acuerdo con lo que se llama "algoritmo de visibilidad horizontal" (detalles en: http://www.dmae.upm.es/WebpersonalBartolo/papers/eplVisibilityHurst.pdf) así que lo convertiré en función y pretendo hacer mi pequeña (mínima más bien) contribución al universo R. De nuevo gracias.