powered by
map
fold
foldblock
## Not run: # # Mean of rolling means # z <- sapply(1:500, # function(x) foldrange(rnorm(50), 10, function(a,b) mean(a) + b) / 41) # ## End(Not run)
Run the code above in your browser using DataLab