Fibonacci generator

Code

I have created this fibonacci series generator using for loop.

Those who aren’t famillar with fibonacci series==> fibonacci series is series which is created adding up previous two terms of the series.(Here, initial value is 0 and 1.)

number1 <- 0
number2 <- 1
n <-10 # or u can use as.integer(readline("Enter a number:::: "))
for (i in 1:n){
  fib <- number1 +number2
  if(fib == 1){
    cat(number1, number2, " ")
  }
  number1 <- number2
  number2 <- fib
  cat(fib," ")
}

## 0 1  1  2  3  5  8  13  21  34  55  89