<-function(v)
n<-1;i<-1
{if(n==0)
return(0)
else if (n==1)
return(1)
else {a0=0
a1=1
for(i in 2:n){a=a0+a1
a0=a1
a1=a}}}
while(a<=v)
{i<-1+i
a<-1+a}
return(n)}
r初心者です任意の数を入力したときにその数字を超えない最大の
フィボナッチ数が数列の何番目であるかを出力したいのですが
うまくできません(例えば2２と入力すると８を返したいです）