Prosta pętla w R, która "zamiennik ma długość zero" w R

Question

Jestem nowicjuszem w R, a więc to, co wydawało się działać dobrze w C i Pythonie, zaskakująco zepsuje się w R. Próbuję obliczyć produkt pierwszych 1000 numerów Fibonacciego. Oto pełny kod:

#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 

ta zwraca następujący błąd:

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

jestem skłonny myśleć, że nie zrozumiałeś pracy z różnych elementów tablicy (chyba I-2 w wektorze opis jest niepoprawny), ale nie znalazłem nic w ciągu ostatniej półtorej godziny, która pomogłaby mi to poprawić. Tak więc wszelkie spostrzeżenia na temat przyczyny problemu będą najbardziej doceniane.

Z góry dziękuję.

Answer 1

Tablice w R są oparte na 1.

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

(reszta jak na pytanie)

Problemem jest Fibonacci[0] który jest 0 długości numeryczne. Kiedy i = 2, to wyrażenie ma prawą stronę numeric(0):

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