Example Program For Recursive Function In R