[R-br] média acumulada

[Benilton Carvalho]

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 em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121217/568e285b/attachment.html>