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<https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-**guia<http://www.leg.ufpr.br/r-br-guia>) e forneça código mínimo reproduzível.