Semplice per loop in R che produce "sostituzione ha lunghezza zero" in R

Question

Sono un principiante in R, e quindi quello che sembrava funzionare bene in C e Python, si rompe sorprendentemente in R. Sto provando a calcolare il prodotto dei primi 1000 numeri di Fibonacci. Ecco il codice 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 

Ciò restituisce il seguente errore:

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

sono incline a pensare che abbia fraintesi operando con diversi elementi di un array (forse l'i-2 nel vettore la descrizione non è corretta), ma non ho trovato nulla nell'ultima ora e mezza che mi avrebbe aiutato a correggerlo. Quindi, qualsiasi comprensione della causa del problema sarebbe più apprezzata.

Grazie in anticipo.

Answer 1

Le matrici in R sono basate su 1.

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

(il resto come nella domanda)

Il problema è che è un Fibonacci[0] numerico 0 lunghezza. Quando i = 2, questa espressione ha un lato destro della numeric(0):

Fibonacci[i]<-(Fibonacci[i-1])+(Fibonacci[i-2])