Recursive Functions and Vector Output in R: An Efficient Approach Using Accumulate and Reduce