moving average of all data to current value

Question

I'd like to calculate the moving average of a vector using all the values till the current value. So that:

c(1, 2, 1, 4, 5, 10)

would return

 1.00 1.50 1.33 2.00 2.60 3.83

I used a loop like this:

out = c()
for (i in 1:length(x)) {
  m = mean(x[1:i])
  out = c(out, m)
}

Are there any packages with a built in function for this? Or is there a better way to do this?

`cumsum(x) / seq_along(x)`. This is called a *cumulative mean*. — Gregor Thomas, Oct 25 '19 at 20:25
thanks! didn't know the name of the operation. duplicate covers it well — Rafael, Oct 25 '19 at 20:28

score 0 · Answer 1 · answered Oct 25 '19 at 20:26

0

What about

v <- c(1, 2, 1, 4, 5, 10)
cumsum(v)/(1:length(v))

answered Oct 25 '19 at 20:26

MR_MPI-BGC

1 Answers1