【R】フィボナッチ数の比をグラフ化する

Question

フィボナッチ数を求める関数fibonacciを作り、さらに、隣接するフィボナッチ数の比を求めるための関数fibratioを作りました。
「隣接するフィボナッチ数の比は1.6に収束する」ことを図示するべくplot関数を書いたのですが、
「 条件が長さが 2 以上なので、最初の 1 つだけが使われます」という警告が出て図にできません。

どなたかこの問題の解決方法をご存じでしたらご教授ください。
コードは以下です。

fibonacci <- function(n){
if (n == 0)
return(0)
else if (n == 1)
return(1)
else {
f0 = 0
f1 = 1
for(i in 2:n){
f = f0 + f1
f0 = f1
f1 = f
}
return(f)
}
}

fibratio <- function(x) fibonacci(x)/fibonacci(x-1)

plot(fibratio,1,10)

Answer 1

オブジェクトfibratioは関数として定義されているだけですね。
実際に計算を実行させて数列を作らないと、グラフの描きようがありません。

plot(sapply(2:10, fibratio))