Re: [R] Fibonacci

2011-04-21 Thread William Dunlap
> -Original Message- > From: r-help-boun...@r-project.org > [mailto:r-help-boun...@r-project.org] On Behalf Of Nordlund, > Dan (DSHS/RDA) > Sent: Thursday, April 21, 2011 9:19 AM > To: r-help@r-project.org > Subject: Re: [R] Fibonacci > > > -Original

Re: [R] Fibonacci

2011-04-21 Thread Nordlund, Dan (DSHS/RDA)
> -Original Message- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of David Winsemius > Sent: Thursday, April 21, 2011 8:44 AM > To: Michael Dewey > Cc: r-help@r-project.org > Subject: Re: [R] Fibonacci > > > On Apr

Re: [R] Fibonacci

2011-04-21 Thread David Winsemius
On Apr 21, 2011, at 9:04 AM, Michael Dewey wrote: At 10:42 20/04/2011, Georgina Imberger wrote: Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. > phi <- 0.5 * (1 + sqrt(5)) > phi [1] 1.618034 > fi

Re: [R] Fibonacci

2011-04-21 Thread Michael Dewey
At 10:42 20/04/2011, Georgina Imberger wrote: Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. > phi <- 0.5 * (1 + sqrt(5)) > phi [1] 1.618034 > fib <- function(n) {(phi ^ n - (1 - phi) ^ n) / sqrt(5)} >

[R] Fibonacci

2011-04-20 Thread Georgina Imberger
Thank-you all!! Very helpful. -- Forwarded message -- From: Bart Joosen Date: 20 April 2011 15:46 Subject: Re: [R] Fibonacci To: r-help@r-project.org Another solution: while (Fibonacci[1] < 500) Fibonacci <- c(sum(Fibonacci[c(1,2)]), Fibonacci) While this adds the sum

Re: [R] Fibonacci

2011-04-20 Thread Bart Joosen
Another solution: while (Fibonacci[1] < 500) Fibonacci <- c(sum(Fibonacci[c(1,2)]), Fibonacci) While this adds the sum before the existing values, the length or tail function or avoided, but even with reordering, its faster (Fibonacci[length(Fibonacci):1]) Best regards Bart -- View this mess

Re: [R] Fibonacci

2011-04-20 Thread Nutter, Benjamin
r-help@r-project.org Subject: [R] Fibonacci Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. Fibonacci<-c(1,1) while (max(Fibonacci)<500){ Fibonacci<-c(Fibonacci, (max(Fibonacci) + ?(Fibanacci)))

Re: [R] Fibonacci

2011-04-20 Thread Petr Savicky
On Wed, Apr 20, 2011 at 11:42:38AM +0200, Georgina Imberger wrote: > Hi! > > I am trying to work out the code to get a Fibonacci sequence, using the > while() loop and only one variable. And I can't figure it out. > > Fibonacci<-c(1,1) > while (max(Fibonacci)<500){ > Fibonacci<-c(Fibonacci, (max(

Re: [R] Fibonacci

2011-04-20 Thread Erich Neuwirth
The "easy" solution to compute the Fibonacci numbers is fibo <- function(n,a=1,b=1){ if (n == 1) return(a) if (n == 2) return(b) return(fibo(n-1,b,a+b)) } It avoids double recursion. It is, however, not as resource efficient as a loop since R does not do tail recursion elimination. On Ap

[R] Fibonacci

2011-04-20 Thread Georgina Imberger
Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. Fibonacci<-c(1,1) while (max(Fibonacci)<500){ Fibonacci<-c(Fibonacci, (max(Fibonacci) + ?(Fibanacci))) } How can I tell R to take the value one before the m