[R-br] média acumulada

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