powered by
When ! is.null(dim(x)) foldrange(x, window, fn, acc=0)
map
fold
foldblock
# Mean of rolling means z <- sapply(1:500, function(x) foldrange(rnorm(50), 10, function(a,b) mean(a) + b) / 41)
Run the code above in your browser using DataLab