前提
aでフィボナッチ数列を作り、y=a^n/a^n-1が1.618に収束することを、グラフでplotして、証明したいです。
a <- NULL
y <- NULL
a[1] <- 1
a[2] <- 1
for(ii in 3:200){
a[ii] <- a[ii-1] + a[ii-2]
y[ii] <- a[ii]/a[ii-1]
}
ここまでだと、a、y共に正常に出てくるのですが、
ploy(y)
をしてもグラフが出てこないです、、
なぜ出てこないのか分からないので教えていただきたいです。
縦軸がy[ii]、横軸がiiのグラフをプロットして、1.618に収束することを示したいです。
発生している問題・エラーメッセージ
plot.new() でエラー: figure margins too large