a unica coisa  q eu mudaria e' a expressao do divisor.... mas nada relevante

cmean <- function(x) cumsum(x)/seq_along(x)




2012/12/17 Leonard de Assis <assis.leonard@gmail.com>
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

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.