Soy un principiante en R, y lo que parecía funcionar bien en C y Python, se rompe sorprendentemente en R. Estoy tratando de calcular el producto de los primeros 1000 números de Fibonacci. Aquí está el código completo:

#PRRODUCT OF FIBONACCI NUMBERS
Fibonacci<-rep(0, 1000)
Fibonacci[0]<-1
Fibonacci[1]<-1
Product<-1

for (i in 2:1000)
{
    Fibonacci[i]<-(Fibonacci[i-1])+(Fibonacci[i-2])
    Product<-Fibonacci[i]*Product
}

Fibonacci[1000]
Product

Esto devuelve el siguiente error:

Error in Fibonacci[i] <- (Fibonacci[X - 1]) + (Fibonacci[X - 2]) : 
  replacement has length zero

Me inclino a pensar que he entendido mal el funcionamiento con diferentes elementos de una matriz (tal vez el i-2 en la descripción del vector no sea correcto), pero en la última hora y media no he encontrado nada que me hubiera ayudado a corregir eso. Por lo tanto, cualquier información sobre la causa del problema sería más apreciada.

Gracias de antemano.