[R-br] média acumulada

[Leonard de Assis]

Existe pronto um comando estilo cumsum que retorne ao invés de soma, a 
média?

exemplo:

set.seed(1)
op <- par(mfrow = c(2, 2))
x <-rnorm(500)
y <- cumsum(x)

ts.plot(x)
ts.plot(y)

# para eu fazer o que quero, tenho que fazer:
y.cmean <-cumsum(x)/(1:length(x))
ts.plot(y.cmean)
par(op)


existe algum jeito mais fácil?

-- 
[]s
Leonard de Assis
http://about.me/ldeassis