Fibonacci Sequence Using Recursion In R