How to Use R's rollapply Function for Calculating Cumulative Sums in Time Series Data