Is there a r function to find the cumulative sum/rolling sum of a set of rows [duplicate]