Re: [R] Return a vector in Fibonacci sequence function

At 20:51 10/05/2013, Tomos_D wrote: That's great thanks There is a closed form expression for the nth Fibonacci number. See Wikipedia for details. --- Original Message --- From: "arun kirshna [via R]" Sent: May 10, 2013 3:34 PM To: "Tomos_D" Subject: Re: Return a vector in Fibonacci seque

Re: [R] Return a vector in Fibonacci sequence function

That's great thanks --- Original Message --- From: "arun kirshna [via R]" Sent: May 10, 2013 3:34 PM To: "Tomos_D" Subject: Re: Return a vector in Fibonacci sequence function Hi, May be this helps: fibv =function(n) { f1 = f2 = 1 f3<- c(f1,f2) for(i in seq(2, n-1)) { if(n == 0 || n == 1) ret

Re: [R] Return a vector in Fibonacci sequence function

Hi, May be this helps: fibv =function(n) { f1 = f2 = 1 f3<- c(f1,f2) for(i in seq(2, n-1)) { if(n == 0 || n == 1) return(n) if(n == 2) return(1) f = f1 + f2 f2 = f1 f1 = f f3<- c(f3,f) } f3 } fibv(0) #[1] 0  fibv(1) #[1] 1  fibv(3) #[1] 1 1 2  fibv(10) # [1]  1  1  2  3  5  8 13 21 34 55 A.K. >I