Class assignment: fibonacci

fibonacci<-function(n)
{#functioin start
 a=1
 b=1
 for (i in 1:n)
     {  temp=b
      b=a
      cat(sprintf("b=%d\n",b))
      a=a+temp
      cat(sprintf("  a=%d\n",a))
      }
 print(a)
}#function end
fibonacci(4)
fibonacci(1)
fibonacci(9)